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Educativos 



• Monkey Academy 

• Alfamat 
•Viaje Espacial 

• Multipuzzle 

• Noria de Números 

• Corro de Formas 

• Coconuts 

• Yo Calculo 

• Selva de Letras 

• El Cubo 
Informático 

• Electro-graf 

• El Rancho 

• Teclas Divertidas 

• BoingBoning 

• Compulandia 

• Mil Caras 

• Logo 

• Países Mundo-1 

• Países Mundo-2 

• Tutor 

• Computador 
Adivino 

• Aprend. Inglés-l 

• Aprend. lnglés-2 

• Cosmos 

• Curso de Básic 

• Juego de 
Números 



Juegos 



• Antártic Adventure 

• Athletic Land 

• Sparkie 

• Juno First 

• Car Jamboree 

• Battle Cross 

• CrazyTrain 

• Mouser 

• Computer Billiards 

• Alí Babá 

• Track & Field-I 

• Track&Field-ll 

• Dorodon 

• Chess (Ajedrez) 

• Senjo 
•1.1. 

• Lode Runner 
•Super Tennis 



• Backgammon 

• Super Golf 

• Hustler 

• Binary Land 

• Driller Tanks 

• Stop the Express 

• Ninja 

• Les Flics 

• La Pulga 
•The Snowman 

• Cubit 

• Pack 16K 

• Fútbol 

• Kung Fu 

• Batalla Tanques 

• Mr. Wong 

• Xixolog 
• Buggy 

• Sweet Acorn 

• Peetan 

• JumpCoaster 
•Buggy 84 

• 3D Water Driver 

• Pinky Chase 
•Wedding Bells 

• Fightting Rider 

Aplicación 

• Memoria Ram 4 K 

• Creative 
Greet'mgs 

• Character Collect 

• Quinielas y 
Reducciones 

• Pascal 

• Ensamblador 

• Generador Juegos 

Gestión 



Hoja de Cálculo 

Homewriter 

Control Stocks 

Contabilidad 

Personal 

Ficheros 

Procesador 

de Textos 

Control Stocks 

Vencimientos 

Contabilidad 

1.500 



LINEA DIRECTA Pág.s 

Todas sus dudas hallarán 
respuesta en esta sección. 



TABLON DE 
ANUNCIOS 
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Insertamos gratuitamente 
durante tres meses los anuncios 
de nuestros lectores. 



LA GALLINA CIEGA 

Un juego de habilidad que 
merece nuestra máxima 
atención. 



Pág. 10 




¿Y POR OUE NO 

EN LOGO? Pá g . H 

El Director de Centro Logo, nos 

habla de este potente lenguaje. 
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Con las últimas novedades del 
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Nombre y apellidos 

Calle n o 

Ciudad Provincia 

D. Postal Teléfono 

Deseo suscribirme por doce números a la revista MSX CLUB DE PROGRAMAS a partir del número 

que pago admntando talón a la orden de: MANHATTAN TRANSFER S.A. - C/. Roca i BatUe. 10-12 - "08023 BMceiona 

Tarifas: España por correo normal Ptas. 1.750.- 

Europa por correo normal Ptas. 2.000.- 

Europa por correo aéreo Ptas. 5.500 . - 

América por correo aéreo 25 USA $.- 

Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB 



Línea directa 



La correspondencia para esta sección debe dirigirse a: MSX CLUB -Línea Directa- Roca i Batlle 10-12 -08023 Barcelona. 
No se publicarán aquellas cartas que no traigan nombre y dirección del autor. 



CARTUCHO 
DE AMPLIACION 
GRABACION 

El problema que tengo es 
que compré un cartucho de 
expansión de memoria de 
64K HBI-55 de 64K para 
poder grabar juegos que ne- 
cesitan más memoria que la 
del ordenador. Pues bien, 
cada vez que lo intento me 
sale el programa mezclado o 
con errores. ¿Cómo solucio- 
nar este problema? 

Koldo Piquer Bauszko 
San Sebastián 

Por la referencia que nos das, 
el cartucho que tienes no es 
de ampliación, sino de alma- 
cenaje con capacidad de 4K. 
Es decir que no te sirve para 
ampliar la memoria sino pa- 
ra almacenar información de 
la Agenda incorporada al 
Sony. 

Si quieres ampliar la memo- 
ria de tu ordenador tienes 
que buscar un cartucho espe- 
cífico. La misma casa Sony 
tiene el HBM-16 y el 
HBM-64. 



MEMORIA 

Tengo un ordenador HB101 
P de SONY, y en el manual 
de instrucciones pone que 
tiene 32K de ROM y 32K de 
RAM. Lo que me gustaría 
saber es si en esas 32K de 
RAM están incluidas las que 
se utilizan para los dibujos o 
sólo son para las operaciones 
y utilidades. 

Ignacio Molina Robledo 
Santander 

La memoria de tu ordenador 
se reparte de la siguiente 
manera: 

29K para usuario 
3K sistema operativo 
16K VRAM 

Es decir, en las 3 2K de RAM 
a las que te refieres, no están 
incluidas las que se utilizan 
para los dibujos. Para ellos 
existe la VRAM, que como 
hemos dicho tiene 16K. 




QUINIELAS 



Tengo problemas con las lí- 
neas 140, 160, 170, 180, 190, 
200 y 1420 que no me coin- 
ciden con el Test de Lista- 
dos, de modo que les agra- 
decería que me dijeran si hay 
algún error de tipografía. 
Manuel Velitez Moreno 
Sevilla 

Las líneas 140 a 200 tienes 
que copiarlas exactamente 
como están en la revista. En 
cuanto a la línea 1420 hemos 
detectado que algunos ejem- 
plares han salido sin las co- 
millas (") de cierre después 
de PRINT" * La afra del 
Test tiene que coinciairte. 



GRABACION 
DE TEXTOS 

Me gustaría saber cuales son 
las instrucciones para grabar 
en cinta y en cartucho textos 
y gráficos. También si hay 
en el mercado software de 
ajedrez y damas, especial- 
mente si Sony los tiene, y su 
precio. 

Eladio Gil 
Eibar (Guipúzcoa) 

Para grabar textos o gráficos 
necesitas un cartucho o cinta 
con un programa procesador 
de textos o gráficos. Con res- 

£ecto al solfware de ajedrez 
is casas Sony y Philips lo tie- 
nen en catálogo y al de da- 
mas, conocemos el de Di- 
mensión New. El precio es de 
unas 2.000 pts. 



BARCELONA 
OLIMPICA 



Quería preguntaros si el 
programa BARCELONA 
OLIMPICA que publicás- 
teis en uno de vuestros ma- 
ravillosos números no con- 
tiene errores, pues yo me en- 
cuentro con ellos en varias 
líneas. Espero que las cintas 
que vais a sacar traigan bue- 
nos juegos para las vaca- 
ciones. 

Arturo Romero Vázquez. 

Irún (Guipúzcoa) 

Muchas gracias por tus elo- 
giosas palabras. Te podemos 
asegurar que el listado de 
Barcelona Olímpica no con- 
tiene ningún error. De todos 
modos, habrás observado 
que a partir del número de 
noviembre incluimos un Test 
de verificación de Listados 
que esperamos te ahorre mu- 
chas horas de repaso de pro- 
gramas. En cuanto a las an- 
tas, KRYPTON ya está a la 
venta, sólo tienes que relle- 
nar el cupón de pedido y te 
anunciamos desde aquí que 
ya está preparada práctica- 
mente la segunda, que se va 
a llamar U-BOOT... Espe- 
ramos que tú mismo seas 
quien juzgue su calidad. 



¡ATENCION! 
2.° CONCURSO 
«MI PROGRAMA» 



Rogamos a nuestros lectores 
que se ajusten a las normas 
del concurso, especialmente 
en cuanto a las condiciones 
de envío. Como ya sabéis las 
cassettes deben ir dentro de 
su correspondiente caja plás- 
tica con la etiqueta-cupón, 
que puede ser fotocopiada si 
no se desea recortar la revis- 
ta. Les agradecemos la ma- 
yor colaboración, dada la 
cantidad de programas que 
recibimos diariamente. 



EL TEST DE LISTADO 
Y LOS SVI 

Soy uno de vuestros más fie- 
les seguidores, remontándo- 
me hasta el primitivo* «Su- 
perjuegos». Por este motivo 
aprovecho para darles la lata 
con varios comentarios: 

• ¿Por qué no dedicáis 
algún capítulo especial a la 
adaptación del SVI 318/328 
a la norma MSX? 

• ¿Haréis cassette para es- 
tos ordenadores? 

• ¿Me podrían confirmar si 
el Test de Listados puede 
servirme para mi ordenador 
Spectravídeo 328? 

Angel Macías Gómez 
Bilbao 

Nos sentimos muy orgullosos 
de tener seguidores tan fieles 
como tú. Eso es lo que pre- 
tendemos: que nuestros lec- 
tores y nuestras publicaciones 
formen una familia muy 
bien avenida. 

• Como tu carta llegó de la 
salida de nuestro número 
anterior, ya habrás compro- 
bado que en el mismo publi- 
camos el artículo «Hagamos 
compatible el MSX con los 
Spectra», que esperamos te 
haya sido de utilidad. 

• Lamentablemente no te- 
nemos previsto editar casset- 
te para los Spectravídeo 
318/328. 

• El Test de Listado sólo te 
sirve para los ordenadores de 
la norma MSX. 

Somos un grupo de amigos 
de Madrid que estamos for- 
mando un pequeño club pa- 
ra el Spectravídeo SV328. Os 
escribimos porque vuestra 
revista nos ayuda mucho a 
programar con nuestro 
ordenador a pesar de no ser 
totalmente compatible con 
el MSX. Nuestra pregunta es 
si podemos enviar progra- 
mas del SVI 328 al concurso. 
Enviaríamos dos listados, 



Editorial 



Opiniones 

Una de las prerrogativas de la prensa es la de 
manifestar libremente su opinión, sobre este 
punto creemos honradamente que no puede 
haber discusión posible. Y frente a esta 
indiscutible prerrogativa, se alza la del lector de 
comprar o no la publicación -o publicaciones-, 
que considere más en la línea de su criterio 
personal. Dicho esto, convendría de nuevo hacer 
hincapié en que el nacimiento de nuestra revista, 
al igual que la de su hermana EXTRA MSX, fue 
motivado por la evidente convicción de que en 
nuestro país al MSX le aguardaba un brillante 
futuro, ya que -jamás nos hemos cansado de 
pregonarlo-, dicho estándar significaba además 
de un paso hacia adelante, la instauración 
definitiva de la compatibilidad de periféricos, lo 
cual a la vista de los ordenadores personales que 
había en el mercado -léase Spectrum y/o 
Commodore- representaba una auténtica 
revolución, por lo que significaba huir de una 
vez por todas del maldito esclavismo de marca. 
Sin embargo para otras publicaciones, y así lo 
han reconocido públicamente, el nacimiento del 
MSX era una alternativa más, de dudoso 
futuro; se imponía según ellas una cierta 
precaución, el dejar pasar un tiempo prudencial. 
Ahora al parecer estas publicaciones, tras varios 
meses de aparición, de golpe y porrazo se dan 
cuenta de las ventajas de un estándar que cuenta 
en nuestro país con miles de usuarios, y auguran 
a bombo y platillo un futuro feliz para los que 
han confiado en el MSX. Si es cierto que errar es 
de humanos, el reconocer los propios errores 
resulta divino. Lo que ocurre es que para 
alcanzar dicho calificativo, el error se ha de 
reconocer abiertamente sin subterfugios ni 
fariseísmos, lo cual ciertamente resulta en 
ocasiones muy difícil, especialmente cuando se 
trata de hacer comulgar con ruedas de molino a 
los lectores, usuarios en definitiva del estándar y 
que por fortuna no se dejan impresionar por 
esos «mea culpa» entonados fuera de tiempo. 

Manhattan Transfer 



Línea directa 



uno para Spectravídeo y 
otro para el MSX. Muchos 
usuarios del Spectravídeo os 
lo agradecerían. 

El Club del «Spectra» 
Madrid 

Mientras estudiamos la posi- 
bilidad de hacer un concurso 
para el Spectravídeo, sabed 
que las páginas de MSX 
CLUB están disponibles pa- 
ra todos nuestros amigos Lec- 
tores, y ¡cómo no!, para sus 
programas de MSX. 



EMISION/RECEPCION 
MORSE 

Ante todo quiero felicitarles 
por el artículo de los efectos 
de sonido aparecido en el 
mes de octubre. Por otra 
parte quisiera preguntarles si 
existe algún programa en 
versión MSX para emisión/ 
recepción de morse y RTTY 
sin necesidad de interface de 
ordenador a emisora y emi- 
sora/ordenador. 

Manuel Pérez Urbano 

Te agradecemos tu felicita- 
ción y nos alegra que tal artí- 
culo te haya ayudado a com- 
prender uno de los aspectos 
del MSX. Como bien sabes 
un interface es un cartucho 
que facilita la entrada y sali- 
da de datos de un aparato a 
otro, cuando las conexiones 
de ambos no son compati- 
bles. Para no utilizar interfa- 
ce es necesario que entre el 
ordenador y el periférico -en 
este caso el emisor-receptor- 
haya conexión directa. 



DIANA 
DE ROBIN HOOD 

He tecleado el programa 
«Diana de Robin Hood» 
aparecido en el n u 7 y el orde- 
nador me detecta un error en 




la línea 1 100, que he corregi- 
do como sigue: 1100 LO- 
CATE 7,21: PRINT «DE- 
SEAS SEGUIR JUGAN- 
DO? S/N: INPUT B$. 
Rocío de Diego y Rodrigo 
Córdoba 

Hemos comprobado el pro- 
grama y es correcto tal como 
está editado. De todos mo- 
dos, quisimos probar la co- 
rrección que nos envías y ésta 
no funciona. Te sugerimos 
que emplees el Test de Lista- 
dos y después nos comentes 
qué tal te ha ido, pues es se- 
guro que tienes algún error 
de tecleo. Buena suerte. 



CANON V-20 

He comprado un Canon 
V-20 y me gustaría saber qué 
opinión les merece técnica- 
mente este aparato, ya que 
todas las compañías dicen 
que sus máquinas son las 
mejores. y 

Antonio García Alberdi 
Madrid 




Indudablemente has hecho 
una buena compra, ya que se 
trata de un aparato de gran 
calidad, robusto y potente. 
Esperamos que lo disfrutes y 
que nuestros programas te 
ayuden a sacarle el máximo 
provecho. 



COMANDO CIRCLE 

Hace muy poco que me 

compré un Sanyo MSX y 

quisiera que me aclararan 

dos cuestiones. He tecleado 

el siguiente programita: 

10CLS 

20 SCREEN 2 



AVISO IMPORTANTE 

Pese a que no era nuestra intención, lamentamos tener que 
comunicar el aumento de precio de nuestra revista a Ptas. 175,-. Ello 
obedece a dos razones. Primera la obligatoria aplicación del IVA y en 

segundo lugar el aumento de los costes de impresión, papel y 
fotolitos, motivado por el incremento del índice del coste de la vida. 




30 CIRCLE (70,70),40,10 
40 GOTO 40 

Pues bien, al ejecutarlo me 
sale el círculo, pero después 
no puedo volver al progra- 
ma. También deseo que me 
aclaren qué representan los 
números 40 y 10 que van 
después del paréntesis del 
CIRCLE. 

Gustavo A. Martín 
Las Palmas de 
Gran Canaria 

Para volver al listado del 
programa tienes que pulsar 
al mismo tiempo CTRL y 
STOP. Los números que van 
entre el paréntesis correspon- 
den a las coordenadas que fi- 
jan el punto central del círcu- 
lo. El primer número fuera 
del paréntesis -en tu caso el 
40- fija la cantidad de pun- 
tos o pixels del radio, mien- 
tras que el segundo corres- 
ponde al color -en tu caso es 
el amarillo oscuro (JO)-. De 
modo que la sintaxis de este 
comando es: CIRCLE (co- 
ordenadas que determinan el 
punto central), radio (en 
puntos), color. 



CUPONES DE PEDIDO 

Si me permitís, voy a hacer- 
les una pequeña sugerencia 
con relación al lugar donde 
colocan los cupones de sus- 
cripción, votos, pedido de li- 
bros. Creo que lo más lógico 
es que los coloquen detrás 
de la publicidad porque si 
está detrás de un artículo te- 
nemos que romperlo y es 
una lástima que la revista 
quede recortada, de modo 
que muchas veces te quedas 
sin pedir lo que te interesa. 
Gracias por todo y ánimo, 
pues la revista es muy buena 
y nos ayuda a sacarle mucho 
partido al ordenador. 

Ricardo J. Duran 
Valladolid 

Tu sugerencia es muy razo- 
nable, pero a veces estamos 
obligados por cuestiones de 
compaginación, pero cuando 
eso sucede pedimos compren- 
sión a nuestros lectores, que 



si no quieren romper la re- 
vista, que es todo un halago, 
pueden copiar o fotocopiar el 
cupón, ya que lo que nos 
importa son los datos solici- 
tados en él. Gracias por los 
ánimos que nos das. 



¿PHILIPS 
SPECTRÜM? 

Estoy a punto de comprar- 
me un ordenador y no sé por 
cuál decidirme. En realidad a 
mí me interesa un Philips, 
pero algunos amigos me di- 
cen que compre un Spec- 
trum, porque es mejor, cosa 
que dudo. También quisiera 
que publicaran las noveda- 
des que hay en juegos y su 
precio. 

Pedro Ruiz González 
Alicante 




Obviamente te tenemos que 
decir que el Philips MSX no 
sólo es mejor sino que ade- 
más es el que tiene más futu- 
ro, comparándolo con el 
Spectrum. En el n" 8, de di- 
ciembre, publicamos una ta- 
bla comparativa técnica que 
demuestra porqué es mejor 
un MSX. En nuestras pági- 
nas de Monitor al Día en- 
contrarás las novedades en 
software y periféricos que 
hay en España. 



TEST DE LISTADOS 

Deseo felicitaros por el 
acierto del «Test de Lista- 
dos», que permite hallar rá- 
pidamente el error y corre- 
girlo, evitando teclear en va- 
no a la vez que a vosotros os 
da la tranquilidad del trabajo 
bien hecho. De todos mo- 



dos, quiero saber cómo con- 
seguir los Test de los Lista- 
dos publicados en los núme- 
ros 1 a 6. 

Juan Viñas Trullenque 
Barcelona 

Mucho agradecemos tus elo- 
gios. El «Test de Listados» 
salió publicado en nuestro 
número 7, de noviembre. El 
Test de Listados de los pro- 
gramas publicados anterior- 
mente requeriría una edición 
especial de dichos programas, 
la cual estamos estudiando. 



NUMEROS 
ALEATORIOS 

Tengo un HIT-BIT 75 y 
cuando programo la función 
RND ejecuta los números 
en la misma secuencia cada 
vez que hago RUN. Por 
ejemplo, en un programa de 
BINGO que estoy haciendo 
escribo: 

n=INT(RND(l) x 90) + 1 
Y cada vez que ejecuto el 
programa me genera los nú- 
meros en el mismo orden. 
¿A qué es debido esto?. 
¿Cómo puedo solucionarlo? 

Manuel Gil Fiestas 
(Barcelona) 

Cuando se habla de la fun- 
ción RND, en realidad es 
más correcto decir que gene- 
ra números pseudoaleatorios 
en lugar de números aleato- 
rios. Es decir: como muy 
bien has observado, genera 
los números en la misma se- 
cuencia cada vez que ejecu- 
tes el programa. Natural- 
mente esto sucede siempre 
que trabajes con constantes 
numéricas. Si en lugar de 
multiplicar por una cons- 
tante lo haces por una varia- 
ble, la cosa cambia. Te 
adjuntamos el siguiente mi- 
niprograma, que esperamos 
te ayude a solucionar tu pro- 
blema. 



li r*¡ ÍNT.1 RND.< - TI Mil '«A í . I 



PROBLEMAS DE 
SINTONIA 



Tengo un problema con mi 
ordenador (un TOSHIBA 
HX-10). Cuando lo sintoni- 
zo en el canal 36 de mi tele- 
visor da muy buena imagen 
pero tan sólo se oye un zum- 
bido del ordenador. Si entro 
un programa de música ten- 
go que descentrar la imagen 
para oirlo. O sea: o lo veo o 
lo oigo. He probado en otra 
televisión con idénticos re- 
sultados. ¿Es el ordenador o 
un mal contacto en la salida 
RF? 

Javier Hernández 
(Barcelona) 

Lo más probable es que no se 
trate de un problema del 
ordenador sino del canal que 
has sintonizado. Trata de lo- 
calizar la imagen en otro ca- 
nal y posiblemente consigas 
también obtener el sonido. 
Caso de que no puedas ha- 
cerlo ponte en contacto con 
tu vendedor. 

CARTUCHOS... 



Quiero hacerles una consul- 
ta sobre cómo solicitar nú- 
meros atrasados, ya que me 
es imposible enviarles un ta- 
lón. 

También me gustaría saber si 
con un cartucho de amplia- 
ción de 16K obtengo la mis- 
ma memoria de usuario que 
con el de 64K ¿Qué ventaja 
hay si tengo la misma RAM 
disponible? 

Feo. Rodríguez Borrego. 
Paterna (Valencia) 

Si no te es posible enviarnos 
un talón también puedes sol- 
sicitar los números atrasados 
mediante un giro postal. 
Efectivamente, tanto con el 
cartucho de expansión de 
16K como con el de 64 K 
obtienes la misma RAM de 
usuario. La diferencia estri- 
ba en que si colocas un cartu- 
cho de 64K puedes además 
conectar una unidad de dis- 
co, mientras que con el de 16 
no. 
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Tablón de anuncios i 



Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen derecho a tres inserciones totalmente 
gratuitas. Las características de esta sección no permiten la inclusión de anuncios con fines de lucro. 



Intercambio Blagger, cuyo 
costo es de 2.500 pts, por pro- 
grama de contabilidad domés- 
tica u otro similar. Preguntar 
por Miquel en el TeL (93) 
873 12 38. Fonts deis Cape- 
llans (Barcelona). CP1. 
Vendo/cambio cartucho 
Track & Field I (4.900 pts.) y 
tres cassettes -Lazer Bykes, 
Maziacs y Traga Manzanas a 
500 pts. cada una. Juan Feo. 
Gómez, c/Rda. S. Antonio de 
Llefiá B.5, 2.° \.', Badalona - 
Tel. 388 89 08. CPl. 
Contacto con usuarios MSX 
de Badalona. Juan Feo. Gó- 
mez Martínez. c/Ronda S. 
Antonio de Llefiá B.5, 2.° l.\ 
Badalona - Tel. 388 89 08. 
CPl. 

Intercambio programas 
MSX. Poseo Gusano, Orga- 
no, Curso Basic MSX, Morse, 
Observatorio Astronómico, 
etc. Enviar cinta a Jordi Fe- 
rrán. c/Matajudaica 10, Corea 
(Gerona). CPl. 
Intercambio programas MSX 
en disco de 5 1/4" preferible- 
mente de gestión y CP/M. 
Francisco Esquivel - Papelería 
Don Papel, Parque Fidiana Bl. 
2. 14014 Córdoba. CPl. 
Vendo programa «procesador 
de Textos Compor» de Phi- 
lips, baratísimo y sin usar con 
manual de instrucciones en 
castellano. 32 K. Jesús Con- 
trera Luna. Angelita Capde- 
vielle 5, 3." Izda. 10002 Cace- 
res. Tel. 22 38 19. CPl. 
Vendo ordenador Sony HB 
55P c/cartucho ampliación de, 
memoria de 16 K, un cassette 
marca Fujiyama, joystick 
Quickshotl y más de 40 pro- 
gramas. Todo 60.000 pts. Ja- 
vier. Tel. (986) 209 337. CPl. 
Vendo Manic Miner, Stop 
The Express, Snowman, Pun- 
chy, Billar Americano, Pira- 
mid, Warp, River Raid, HE- 
RO. Todos por 1.600 pts. 
Llamar entre 2 y 3 de la tarde. 
Preguntar por Nacho Ba- 
rrientes. Tel. 41 46 17deVigo 
o escribir a c/Barcelona 77, 3." 
B, Vigo 11. CPl. 
Contacto con usuarios MSX 
para intercambio de opinio- 
nes, trucos y programas. Co- 
legas os podéis poner en con- 
tacto conmigo, Jorge Hernán- 
dez López, en el Tel. 
247 55 84 o en Churruca 16, 
Dcha. 14. Puerto Sagunto 
(Valencia). CPl. 
Vendo Spectravídeo SVI 328, 
Data Cassette SV1904, Quick 
Shot I, cartucho (Sector Alp- 
ha), todo el software comer- 
cial de Spectravídeo, de juegos 
y aplicación y gran cantidad 
de programas de todo tipo. 
Todo en perfecto estado. Muy 



barato. Precio a convenir. Ru- 
bén Algarra. Tel. (91) 
711 41 04.c/TembIequel6,2.° 
B -28024 Madrid. CPl. 
Vendo-cambio toda clase de 
programas comerciales MSX 
que no superan los 48 K de 
RAM. Enviar lista. Contesta- 
ré a todos. Ramón Oró Mont- 
serrat. c/Lérida s/n. Artesa de 
Lérida (Lérida). CPl. 
Intercambio programas de 
MSX sin fin económico. Po- 
seo Hero, Blagger, Zaxxon, 
Beamrider, etc. Contestaré a 
todos. Francisco García. 
Apdo. de Correos 1520. Va- 
lencia. CPl. 

Intercambio toda clase de 
juegos y trucos de programa- 
ción. Poseo más de 60 juegos. 
Escribir a Sgo. Bustos Mer- 
chante, c/Cervantes 6, 4." C 
-16004 Cuenca o al Tel. (966) 
21 10 92 de 15 a 16 h. o de 
20.15 a 23.30 h. CPl. 
Vendo cartuchos del Imperio 
Contraataca y Q-Bert para 
Intellevision y Action Forcé 
para Atari a 1.500 pts. cada 
uno. Preguntar por Marcelo 
en el TeL (93) 200 86 07 de 
Barcelona de 14 a 15 h. única- 
mente. CPl. 

Contacto con otros usuarios 
de MSX para intercambio de 
programas, dudas, experien- 
cias. Ricardo José Durán Ca- 
rrasco. c/Las Moradas 36, 3." B 
-47010 Valladolid. CPl. 
Intercambio programas MSX 
en código maquina. Cercely, 
Blagger, Manic Miner, Chess, 
etc. Juan González. Tel. 
463 67 46, c/Zuberoa 6, 2." C. 
Lejona (Vizcaya). CPl. 
Vendo Sony HB75P 64 K, 
más grabadora Altai, prog. Si- 
mulador de vuelo, juegos, li- 
bros de MSX. Todo nuevo a 
68.000 pts. Llamar a Pedro al 
Tel. (94) 463 05 87 o escribir 
Apdo. Postal 120, Las Arenas 
(Vizcaya). CPl. 
Vendo Spectravídeo 720 MSX 
c/embalaje original, manual 
en español, garantía In- 
descomp, a estrenar a 28.000 
pts. Miguel Moreno, c/Cata- 
luña 48, 3." 2.*, El Prat (Barce- 
lona). CPl. 

Vendo consola de videojue- 
gos Atari junto a nueve cartu- 
chos -Defender, Superman, 
Combat, Space lnvader, 
etc.)-. Precio a convenir. 
Cambio cassettes de juegos 
p/Spectravídeo 318/328. Lla- 
mar a Jorge, Tel. (93) 
331 93 65. CPl. 
Vendo/intercambio progra- 
mas MSX p/gestión, educati- 
vos y juegos. Juan Miguel 
García. c/Gaudí 64, 1." I.*, 
Reus (Tarragona). CPl. 
Intercambio programas que 



son los siguientes: Apren- < 
diendo Inglés I, Curso Basic 
MSX, Super Chess, River 
Raid, Máxima, Geografía de 
España, etc. y todos los pro- 
gramas aparecidos en EXTRA 
MSX y MSX-CLUB. Jordi 
Márquez Batlle. c/Unión 71, 
3." l.\ Premiá de Mar (Barce- 
lona). Tel. (93) 751 56 22. 
CPl. 

Vendo mando p/ordenador 
MSX. También p/Commodo- 
re, Atari, etc. a 1.200 pts. mar- 
ca JS 101 Anitech. Dirigirse a 
Daniel Pavón c/Llibertat 17, 
Vilassar de Dalt (Barcelona). 
CPl. 

Contacto con otros usuarios 
de MSX para intercambio de 
programas e información. 
Manuel Ponce Castro. Avda. 
Solís Pascual 29, 1.", Ubrique 
(Cádiz). CPl. 

Contacto con usuarios de 
MSX de Reus. Apúntate al 
club «Todo MSX», es gratui- 
to. Escribe a «Todo MSX», 
Att. Juan C. de la Llana, el 
Lleona 12, 2.", Reus (Tarrago- 
na). CPl. 

Intercambio programas o 
cintas. Poseo primeros títulos, 
especialmente de utilidades 
(Gerente, Contabilidad do- 
méstica, etc.) y juegos. Do- 
mingo Gallego Piñero. c/Le- 
vante n." 1, entio. 2. a , Barcelo- 
na. CPl. 

Contacto con usuarios de 
MSX de Oviedo p/intercam- 
bio de programas e ideas. Je- 
sús Polledo. Tel. 224 234. 
CPl. 

Vendo Spectravídeo 328 
-comprado en junio 1985-, 
data cassette, 4 manuales, TV 
b/n y 25 programas comercia- 
les. Todo por 60.000 pts. Ra- 
món Llorens Moreno, c/Gui- 
súzcoa 8, 6." 2.', 08018 Barce- 
lona. Tel. (93) 308 62 53. CPl . 
Cambio cartucho Monkey 
Academy por otro cartucho y 
en concreto E.I. o por dos 
cintas especiales de no más de 
16 K. Juan Luis Martínez, 
Vistasul T." 11, W 4.', Dos 
Hermanas (Sevilla). CPl. 
Vendo ordenador Sony de 
64 K con más de 70 progra- 
mas de juegos, educativos y de 
gestión. Todo 73.000 pts. Jor- 
ge Lafuente Bartra, Avd. de 
Madrid 30-34, 3." 3.*, 08028 
Barcelona. Tel. (93) 333 45 36. 
CPl. 

Intercambio y compro todo 
tipo de programas en disco 
para SVI 328. Mandar lista a 
Juan Antonio Blanco García. 
Av. Tomás Giménez, 28, 3.°, 
2.: Hospitalet (Barcelona). 
CP2. 

Cambio equipo de revelado 
fotográfico (ampliadora, cu- 



i: 



betas, bombo para rollo de 
película, secadora, temporiza- 
dor y otros accesorios) por 
Spectrum 48/64 K. Manuel 
Pérez Urbano. P.° San Juan, 
51. (Peluquería) 08009 Barce- 
lona. Ref. CP2. 
Contacto con usuarios de 
MSX de Marbella. Guillermo 
García Guerrero. Jacinto Be- 
navente. Edif. Marbelsum II, 
3.°, 2.'. Marbella (Málaga). 
Ref. CP2. 

Intercambio programas de 
todo tipo para ordenadores 
MSX. Mandar lista. Contesta- 
ré a todos. Carlos Bachiller 
Gil. Doctrina, 7, 1." D - 42002 
Soria. Ref. CP2. 
Contacto. I like to corres- 
pond with spanish MSX-users 
to exchange programs, in- 
formation, etc. I make pro- 
gram in Basic as Machine 
Language. Erwin Oei - Wolf- 
senwaard 2, 6932 BL Wester- 
voort - Holland - Ref. CP2. 
Vendo Spectravídeo 728 con 
garantía, adquirido en octu- 
bre/1985. Adjunto programas 
texto y datos y manual. Precio 
total 40.000 pts. Ramón Do- 
mingo Mustarós. Calabria, 
174, 3.°, 2.' - 08015 - Barcelo- 
na. CP2. 

Intercambio programas de 
juegos o utilidades para MSX. 
Escribir, llamar o enviar vues- 
tros programas a Angel Tomé 
Carrillo, Paseo de Zorrilla, 71, 
1." izqda. 47007 - Valladolid - 
Tel. Í983) 23.29.62. Ref. CP2. 
Vendo ordenador Sony MSX 
y accesorios. Todo nuevo. 
Muy barato. Envío lista deta- 
llada a quien lo solicite. José 
Manzanos Alesanco, Avda. 
Estibaliz, 2." 6A - 01004 - Vi- 
toria. Ref. CP2. 
Envíame cinta con tus pro- 
gramas y te lo devolveré con 
muchos otros en Basic y Có- 
digo Máquina. José Salas Jo- 
dar. Dip. Tiata. Lorca (Mur- 
cia). CP2. 

Cambio más de 40 buenos 
programas comerciales -Buck, 
Manic, Contabilidad, Proce- 
sador de textos, etc. — , por 
cartucho ampliador de memo- 
ria de 16 o 64K. Rubén Soto. 
Teruel, 4. Tudela de Duero 
(Valladolid). CP2. 
Vendo Sony HB55, amplia- 
ción de memoria 64K, casset- 
te, cartucho y cinta de juegos, 
libro Basic y muchas revistas. 
Todo en perfecto estado por 
49.000 pts. Llamar a Raúl al 
tel. (91) 273 18 48. De 12 a 17 
h. Ref. CP2. 

Vendo Spectravídeo SV 318 
de 32K con data cassette por 
35.000 pts. Regalo 60 juegos y 
utilidades, libros y revistas. 
Cipriano Dopico Barreras. 
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Escocia, 94 bajos, 1.", 08016 
Barcelona. CP2. 
Cambio ciclomotor Derbi 
Variant en buen estado por 
ordenador MSX de 48 o 64K 
y cassette expansión RAM de 
16 o 64K. Valoraré cualquier 
oferta. Angel Alfonso Amor 
Cabado, Ronda de Outerio, 
416, 3.° dcha. 15011 La Co- 
rana. CP2. 

Contacto con usuarios del 
MSX e IBM para formar un 
club en Alhama de Murcia. 
Más información dirigirse a 
José Martínez Fuertes, Av. 
Bastarreche n° 12b, Alhama, 
300009 (Murcia). CP3. 
Contacto con chicos/chicas 
usuarios del MSX de mi loca- 
lidad. Marcos Fajardo Orella- 
na. Parque Mediterráneo Blo- 
que 15, Piso 5 o Izq. Málaga. 
Tel. 34 37 38 de 12,30 a 2,30 o 
5 a 6,30. CP3. 

Cambio cintas con 30 juegos 
y 3 de utilidades por uno de 
estos juegos: Space Trouble, 
Battle Cross, Juno First, Do- 
rodón, Máxima, Zaxxon, etc. 
Chuchi. Telf. 22 38 19 - Cáce- 
res. CP3. 

Intercambio programas MSX. 
Poseo más de 20 títulos. 
Alberto Pardo Hernández. 
Tel. (93) 422 72 25. CP3. 
Intercambio programas MSX 
en código maquina. Sorcery, 
Blagger, Manic Miner, Chess, 
etc. Juan González. Tel. 463 
67 46 de Vizcaya. CP3. 
Intercambio programas MSX 
en disco de 5/4 preferible- 
mente de gestión y CP/M. 
Francisco Esquivel Parque Fi- 
diana Bl. 2 14014. Córdoba. 
CP3. 

Atención Si eres de San Se- 
bastián y dispones de un 
MSX, ponte en contacto con- 
migo. Antonio Millán San 
Emeterio el. Matía 44 - 4 - 
DHC. S. Sebastián 20008 - 
Tel. 21 64 66. CP3. 
Intercambiamos cintas, ideas, 
trucos e información para 
Spectrum. Club Onubasoft, 
apt. de correos 1212. Huelva. 
CP3. 

Vendo Super Expander del 
Spectravídeo, controlador de 
disco y dos unidades de disco 
5 1/4" simple, cara doble den- 
sidad. Todo por 55.000 pts. 
José Puigvert Bonfill. c/Sta. 
Lucía 1, Canet de Mar (Barce- 
lona). Tel. (93) 749 11 30. 
Necesito urgentemente pro- 
grama MSX que controle ca- 
rreras de marathón y de los 
resultados por impresora. 
Antonio Millán. Tel. (943) 
216466. CP3. 

Vendo Spectravídeo SV328, 
super expander 605B, en ga- 
rantía, CP/M y Basic Disco, 
cassette, revistas y programas, 
por 200.000 pts. Monserrat 
Sala. - Tel. (93) 427 39 50. 
CP3. 

Intercambio o vendo progra- 
mas MSX. Poseo Zaxxon, 
Ghostbusters, Manic Miner, 
etc. y programas de gestión. 



José M 1 López Herrera, el. 
Montoya 1,1" A, Alcantarilla 
(Murcia). CP3. 
Mándanos tus programas en 
una cinta y la recibirás cargada 
con otros nuevos. Tomas Eis- 
man Domenech. c/. Atillo, 19 
- 14009 Córdoba. Ref. CP3. 
Usuarios de SPECTRAVI- 
DEO 728 o MSX en general, 
agradeceríamos contacto para 
intercambiar programas, ideas. 
Soto, Blach, Arribas - Central 
Telex, Telégrafos, Plaza del 
País Valenciano - 46002 Va- 
lencia. 

Intercambio cartucho Alí- 
Babá y otros. José M. Váz- 
quez, c/. Entrepeñas, 42 - La 
Corana - Tel. (981) 25 26 87. 
Ref. CP.3. 

Para los usuarios de Cuenca. 
El club infantil OCIO MSX 
creado en julio de este año, 

firetende poner en contacto a 
os usuarios de este estándar. 
Dirigirse a Mariano Delgado 
García, c/. Hermanos Bece- 
rril, 3. Cuenca. Tel. (966) 
22 26 68. Ref. CP.3. 
Intercambio programas del 
sistema MSX. Alberto Cama- 
cho Fernández, c/. Nafarroa, 
15, 6." P. Basauri. Vizcaya. 
Ref. CP.3. 

Desearía intercambiar pro- 
gramas, dispongo de más de 
50. José Ignacio Nasarre. c/. 
Franco y López, 1 1 - 50005 
Zaragoza. Tel. (976) 35 61 77. 
Ref. CP3. 

Intercambio programas, du- 
das, inquietudes con usuarios 
MSX. José Atxurra Par. Itu- 
rribide, 2-5." E. 48006 Bilbao. 
Ref. CP3. 

Intercambio programas. Zax- 
xon, Manic Miner, Les Flics, 
Congo Bongo y Shark Huntér 
por El Samurai, Ghostbuster, 
Beamrider o Decathlon. Javier 
Vila Lugo - París 6, 3.°C To- 
rrejón de Ardoz (Madrid). 
Ref. CP3. 

Intercambio programas He- 
ro, Keystone Kapers, Polar 
Star, etc. y aparecidos en esta 
revista. José Corrales-Av. de 
Cortés, 22, 1." Aptdo. 
59-Ubrique (Cádiz). Ref. 
CP3. 

Cambio cartucho de ROM 
Step-Up por Edyll, Billar, 
Antartic Adventure, Tenis, 
Crazy Train, etc. Cristóbal 
Martín Basoa-Villa Soledad, 
28-30, 2." izq. El Ferrol. - Ref. 
CP3. 

Contacto, con otros usuarios 
de MSX para formar un club e 
intercambiar ideas y progra- 
mas. José L. Fernández Av. 
Fdez. Ladreda, 58, 6." Gijón 
(Asturias) - CP3. 
Intercambio programas MSX. 
Paseo Booga, Hunch, Jetset 
Willy, Almacén, Databa, etc. 
José Manuel Vera Vilchez, 
Escritor José de las Heras, 3, 
Córdoba 14014 - Ref. CP3. 
Intercambio ideas y progra- 
mas. Javier Iniesta. Av. Ntra. 
Sra. Fátima 27, Madrid 28047. 
Ref. CP3. 



POR FIN, PARA COMPLACER 
A NUESTROS LECTORES LLEGA 

msxclub 



de CASSETTES 



PROGRAMAS DE ALTA CATEGORIA 
PARA LOS USUARIOS DEL MSX 

I 




KRYPTON: La batalla más audaz U-BOOT: Desde el puente de 
de las galaxias en cuatro pantallas y mando de tu submarino, intenta 
seis niveles de dificultad, para los hundir al crucero enemigo que 
amantes de las sensaciones fuertes. quiere darte caza. Provisto de peris- 
copio de superficie, carta de nave- 
gación, sonar de profundidad, ra- 
dar de localización, indicador de 
combustible, compás de rumbos y 
almacenaje de torpedos. Con U- 
BOOT sentirás la autenticidad de 
las grandes gestas navales. 



Si quieres recibir estas cassettes recorta o copia el boletín 
adjunto: 



Nombre y apellidos 

Dirección 

Población Provincia 

Código postal 

□ KRYPTON precio 

□ KRYPTON precio suscriptores 
] Gastos envío certificado 

□ U-BOOT precio 

□ U-BOOT precio suscriptores 

□ Gastos de envío certificado 

Total 

Remito talón bancario de Ptas 

MANHATTAN TRANSFER, S.A. 



Ptas. 500,- 

Ptas. 450,- 

Ptas. 70,- 

Ptas. 700,- 

Ptas. 630,- 

Ptas. 70,- 

Ptas. 

a la orden de 



IMPORTANTE: 

Indicar en el sobre MANHATTAN TRANSFER, S.A. 

CLUB DE CASSETTES 
c/. Roca i Batlle, 10-12 bajos 
08023 Barcelona 



S NO SE VENDEN EN 
QUIOSCOS, LA UNICA FORMA DE ADQUIRIRLAS ES 
SOLICITANDOLAS A NUESTRA REDACCION. 
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Programa 



iPor Antonio Cano, 



LA GALLINA CIEGA 



Tenemos aquí una versión 
muy entretenida del popular 
juego de la «gallinita ciega» 
en el que pueden intervenir 
hasta cinco personas, cada 
una con su propio color. 



«La Gallina Ciega» es un programa que 
tiene muchas posibilidades de variación 
y que, en consecuencia puede ser mo- 
dificado, según el gusto de cada usua- 
rio. Se puede perfeccionar, por ejem- 



plo, el movimiento de las figuras, poner 
un acumulador de tiempo en lugar del 
contador, etc. Su autor, Antonio Cano, 
advierte que el funcionamiento de los 
muñecos que se esconden en la pantalla 



se debe a los efectos de zonas de colo- 
res en SCREEN 1, de acuerdo con la 
sentencia de la línea 1400. 



20 '# LA GALLINA CIEGA § 
30 ' $ tC) Antonio Cano •'/,• 
35 '# PARA MSX-CLUB & 
40 ' #5$#8&5^ 

50 COLOR ,4:SCREEN 3 ! OREN "grp:"AS 
#1 

60 PLAY" s 1 3m200f d 1 Of 1 Og 1 OaSg 1 Of 5g5 

a 1 Og 1 f 1 OeSd 1 c 5 f c 1 f 1 Og 1 Oag 1 f 5d 

5a5f SgaSf " 

70 FOR I%»0 TO 14 

80 FOR H%=0 TO 200 ! NEXT 

90 COLOR 1%, , PX H 

1 00 PRESET ( 1 00 , 20 ) , 4 ! PR I NT# 1 , " LA" ! 
PRESET <: 20 , 70 >,4¡ PR I NT# 1 , " GALL I NA " ! 
PRESET C 50 , 1 20 > , 4 : PR I NT# 1 , "CIEGA" 
1 1 NEXT 

120 IF PLAY C 1)00 THEN 120 

1 30 COLOR 5,1,5: SCREEN 1,2, O ! KEY O 

FF : W I DTH 30 ! R%=RND C -T I ME ) 

1 40 LOCATE 10,1: PRINT" INSTRUCCIONE 

150 LOCATE 2, 3 i PRINT "Es te es el el 
asico juego ta Gallina Ciega. Ju 
egan cinco jugadores con sus res 
pee t i -- vos c o 1 o r es : r o j o , azu 1 , arn 
a- r i 1 1 o , ver de , b 1 an c o . " 
160 LOCATE 2, 8 : PRINT" El jugador qu 
e hace de ga- 11 irla ciega debe 
buscar por la pantalla a los dem 
a s . P a - r a e 1 1 o t i ene 1 o s cura o r e 
s. " 

170 LOCATE 2, 12:PRINT"E1 jugador q 
ue caiga en las garras de la gal 
lina ciega hará de esta en la s 
i gu i en- te j ugada . " 
1 80 LOCATE 2 , 1 6 : PR I NT" E 1 j ugador q 
ue menos tiempo tenga al final g 
ana r a . E s t e t i e m p o p o d r a s e r r e d 
u c i d o o a u m e n t a d o e n f une i o n d e 
1 as i n te r ven c i ones de c ada j uga 

dor . " 
190 GOSUB 2020 

200 PLAY" s 1 3m600f 5f 1 Of 1 5f 1 Od 1 Of 1 Og 
1 OaSg 1 f 5gSg 1 Og 1 5g 1 Oa 1 Og 1 f 1 OeSd 1 
c 5 f 5 f I f 1 5 f 1 c 1 f 1 Og 1 Oa 1 OaSg 1 f 5d 
5a5f SgSgSaSf Sf S" 

2 1 C0% (. 1 )=6 ! Cü% C 2 >~7! Cü% ( 3>«1 ¡ CO 

% <: 4 > a 1 2 : co% i s > * i 4 

220 ' SPRITES 
230 FOR 3%~Q TO 2 
240 FOR I%=1 TO 8 
250 READ C* 

260 A**A*+CHR* ( - VAL C " &b" +C* > > 
270 NEXT 



280 SPRItE*<J%)aA* 

290 A*="" : NEXT 

300 FOR I%=3 TO 6 

31 A*=" " : B*=" " : E*=" " : F*=" " 

320 FOR J*»l TO 16 

330 READ C* 

340 A*=A*+CHR* < VAL í " &b" +LEFT* C C* , 8 

) :> ) 

350 B$=B*-i-CHR* C VAL C " &b" +R I GHT* < C* , 

8 ) ) ) 

360 FOR H%=16T0 1 STEP-1 i G*=G$+MID 

Mm , m, i > : next 

370 F*=F*+CHR* C VAL C " S«b" +LEFT* C G* , 8 

Í ) ) 

380 I*«»E**CHRf ( VAL C " &b" +R I GHT* < G* , 

8 ) > ) 

390 G$="" : NEXT 
400 SPR I TE* ( I % > «A*+©Í 
4 1 SPR I TE* < I %+4 ) =F*+E* 
420 READ PL*:PLAY PL* 
430 NEXT 

440 IF PLAY CDOO THEN 440 

450 DATA 01111 100 

460 DATA 11111110 

470 DATA 1 111 11 1 

430 DATA 11 111 11 

490 DATA HUI Til 

500 DATA 11111110 

510 DATA 1111 1000 

520 DATA 01 111110 

530 DATA 001 1 1 1 10 

540 DATA 01111111 

550 DATA 01 lililí 

560 DATA 01 lililí 

570 DATA 11111111 

580 DATA 01111111 

590 DATA 0001 1111 

600 DATA 01 11 I 110 

610 DATA 01 1 1 1 1 10 

620 DATA 11111111 

630 DATA 11111111 

640 DATA 1 101 101 1 

650 DATA 11 I 1 11 1 1 

660 DATA 01 111110 

670 DATA 01 1001 10 

680 DATA 0111 1 1 10 

690 DATA 0000001111000000 

700 DATA 00001 lililí 00000 

71 DATA 0001 11111111 0000 

720 DATA 001 111111111 1000 

730 DATA 01 1 1 1 11 T i l M I 1 00 

740 DATA 11111111111111 00 

750 DATA 1.1 1 11 IT Tí 101 1 TJ 1 

760 DATA 11 1 1 11 11 1 1001 1 1 1 

770 DATA 111111111 1000100 
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Programa 



«ie ir nio«(P». i. i )í"o- or niD«tPi 




lf CtnscfMio«( 



780 DATA 1111 000000000000 

790 DATA 011 0000000000000 

3 O O DATA 011 O O O O O O O O O O O O O 

810 DATA 0000000000000000 

820 DATA 0000000000000000 

8 3 O DATA O O O O O O O O O O O O O O O O 

8 40 DATA O O O O O O O O O O O O O O O O 

850 D A T A " s 1 3 m 6 O O f 5 f 1 Of 1 Sf 1 Odl Of 1 Og 

1 OaSgl Of 5" 

860 DATA 00001 1 1 1 1 10000OO 

870 DATA 00001 11111 000000 

880 DATA 00001 111111 00000 

890 DATA 00001 lililí 00000 

900 DATA 00001 11111111 000 

910 DATA 0001 1 1 1 001 1 1 1 000 

920 DATA 0001 1 ] 1 001 1111 00 

930 DATA lililí 10001 1 1 100 

940 DATA 1111111 0001 1 1 1 00 

950 DATA 11 11 1 1 10001 1 1 100 

960 DATA 1100000000111100 

970 DATA 1 1 0000000001 1111 

980 DATA 000000000001 1111 

990 DATA 0000000000000000 

1 000 DATA 0000000000000000 

1010 DATA 0000000000000000 

1 020 DATA" s 1 3rr.600g5g 1 Og 1 5g 1 Oa 1 Og 1 O 

f 1 OeSd 1 OcSf Sf 1 Of 1 Sf 1 O" 

1 030 DATA 001 1111111111111 

1040 DATA Olllllllllllini 

1050 DATA 011 1 1 11 1 1 1 1 1 m 1 

1 060 DATA 11111 11 111111111 

1 070 data iinmnmiiii 

1080 DATA 1 1 101 111 1 1 1 1 1 1 n 

1090 DATA 1 1 101 1111-1111111 

1 100 DATA 1 1 101 11 111 1111 ti 

1110 DATA 1 110111111111111 

1 1 20 DATA 1 1 1 0000000001 1 1 1 

1130 DATA 01 1 0000000001 II 1 

1 1 40 DATA 01 1 00000000001 1 O 

l 'ISO DATA 0000000000000110 

1 1 60 DATA 0000000000000000 

1 1 70 DATA 0000000000000000 

1 1 b'O DATA 0000000000000000 

1 1 90 DATA" s 1 3iy.600c 1 O f 1 Og 1 Oa 1 0a5g 1 O 

f SdSaS f 5g5g5aS f 5 f 5 " 

1 200 DATA 00001 1111111 0000 

1210 DATA 0000 11111111 0000 

1 220 DATA 0000 ! 11111111 000 

1 230 DATA 00001 11111111 000 

1 240 DATA 00001 1 I 001 1 1 1 000 

I 250 DAT A 00001 1 1 001 1 1 1 000 

1 260 DATA 00001 1 1 001 1 1 1 000 

1 270 DATA 00001 1 1 001 1 1 1 000 

1 230 DATA 00001 1 1 001 1 1 1 000 

1 290 DATA 00001 1 1 001 1 1 1 000 

1 300 DATA 00001 1 1 001 I 1 1 000 

1310 DATA 0000 n 000111 1000 

1 320 DATA 00001 1 00001 1 0000 



i 3 3 O DATA O O O O O O O O O 1 1 O O O O 
1 340 DATA 0000000000000000 
1 350 DATA 0000000000000000 
1360 DATA"" 
1 370 CÜLOR ,J,1 • CLS 

1380 CO%=INTCRNDC 1 >*S) + 1 : SWAP C0%<" 

i > ,co%<ca%:> 

1390 GOSUB 2020 

1 400 X%= 1 27 : Y%=95 ! Z 1 %m¿ ; Z2%=5 ! P%= 1 
: GOSUB 1 660 

1 4 1 O F'LAY " b 1 3m300b r 64b r 64n9 " 

1420 IF PLAYC 1 ><>0 THEN 1420 

1430 ' RUTINA PRINCIPAL 

1440 TIME=0:MI%=0 

1 450 C%~t NT ( RND < 1 ) * 1 6 .) 

1460 IF C%=PO I NT í.' X% , Y% ) THEN 1450 

1470 FÜR T%*0 TO 100 

1480 DE%=TIME\5:DE*=STR*CDE%) :de%= 
VAL C R I 6HT* < DE* , 1»¡ SE%=VAL C LEFT* C D 
E*,LENCDE*)-1 ■) > 

1490 IF SE%>59 THEN MI%=MI%+ 1 ! TIME 
--0 

1 500 LOCATE 10,1 í PR I NTM I % ¡ " ¡ " ; :~;E% j 
" : " ¡ DE% 

1510 ON STICKCO) GOSUB 1560,1670,1 

570, 1670, 1580, 1670, 1610 

1520 IF POINTCX%,Y%>=C% THEN 1690 

1530 NEXT 

1540 GOTO 1450 

1550 ' MOVIMIENTO DE SPRITES 
1560 Y%=Y%-l:ON P% GOTO 1590,1600 
1570 X%=X%+1 :Z1%=0:Z2%=3:G0T0 1620 
1580 Y%=Y%+1:0N P% GOTO 1590,1600 
1590 Z1%==2:Z2%=5:P%==2:G0T0 1620 
1600 Zl %=2 : Z2%-9 : P%=1 ¡ GOTO 1620 

1610 x%=x%-i :zi%=i :Z2%=7 

1620 IF X%<1 1 THEN X%=1 1 

1630 IF X%>228 THEN X%=228 

1640 IF Y%<18 THEN Y%=18 

1650 IF y%>im THEN Y%=148 

1660 BEEPIPUT SPRITE O , (. X%+4 , Y% ) , 1 

3 , Z 1 % : PUT SPR I TE 1 , C X% , Y%+8 ) , C0% ( C 

0%>,Z2%¡PUT SPRITE 2 , C X% , Y%+1 7 ) , 1 5 

,Z2%+1 

1670 RETURN 
1680 ' FINAL 
1690 COLOR 15,4,5 
1 700 M%=CO% C C0% ) -6 

1710 MI % C. M% > =M I % : M2% C M% ) =SE% ! M3% k M 
%>=DE% 

1 720 SWAP C0% C C0% ) , C0% « 5 5 ! ,T%=0 ! X 1 % 

C1 )=X%+4: Y1%(1 )=Y% 

1730 FOR I%=2 TO 4 

1740 Xl%CI%:> = INT(RND<:i >*219) + 10 

1 750 Y 1 % (. I % :> = Y 1 % C I % ) + 1 s 

1760 FOR Z5Í=1 TO 4 

1770 IF Z%=I% THEN 1790 

1780 IF Y1%CI%)-"30<Y1%<:Z%> AND Yl% 
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C I%)+30>Y1 %<Z%> 
1790 NEXT : NEXT 
1800 FÜR ÍÍ«ÍO Tü 
1 

1 8 1 O 

J% ) ) 



THEM 1750 
13 STEP 



PUT SPR I TE l%f<Xl% < J% ) +4 , Y 1 % < 
1 3 , O ¡ PUT SPR I TE I %4 1 , < X 1 % C J% ) 
, Y1 %<.J% )+& ) , C0%( J%> , 3 : PUT SPR I TE I 
%+2 , Ck l % C j% > i Y 1 % C J% ) + 1 7 ) , 1 5 , 4 
1820 NEXT 

Í 830 PLAY " S 1 3M200C 1 0É5QFF5B5BA 1 OB 

1 0F5G1 0EE5A1 0G1 0BB1 5G1 5E1 5D1 5C" 

1840 ÍF PLAY (1)00 THEN 1840. 

1850 POR I%=1 TO 5: Y1%C I%)=0:NEXT 

1860 FOR I%=10 TO 19 STEP 3 

1 370 PUT SPR I TE I % , C O , O ) , O , O ¡ PUT S 

PR I TE I %+ 1 .. ( O , O ) , O , 3 : PUT SPR I TE I % 

+2, Í O , O ) , O , 4 

1880 NEXT 

1 390 ' MARCADOR 

1 900 CLS : GOSUB 2020 

1 9 1 O PUT SPR I TE O , £ 204 , 90 ) , 1 3 , Z 1 % : 
PUT SPR I TE 1 , C 200 , 33 ) , Cü% C 5 > , Z2% ¡ P 
UT SPR I TE 2 , i 200 , 1 07 ) , 1 5 , Z2%+ 1 
1 920 LOCATE í O ,1 ! PR I NT " MARCADOR " 
1930 LOCATE 3, 9 ¡PRINT "ROJO. ...:"; 
M 1 % (. O ) ; M2%('0) ; M3%< O ) 



1940 LOCATE 3,11 ¡ PRINT "AZUL . . . . :" 

;Ml%( i ) ;M2%C l >;M3%( 1 > 

1 950 LOCATE 3 ,13: PR I NT " AMAR I LLO ¡ " 

;M1%(4) ;M2%( 4 :> ;M3%(4> 

1960 LOCATE 3, 15 ¡PRINT "VERDE. . . i " 
;M1%<6> ;M2%(6> ;M3%(6) 

1970 locate 3,17:print "blanco..:" 
jmi%cs> jm2%(8:>;M3%<:8:> 
1980 locate 5 , 20 ! print" ¿otro juego 
? <s/n>" : a*=iimkey*¡ if a*="s" or a$ 



— ii — ii 



THEN 1370 
1990 IF A*<>"N" AND A*<>"n" THEN 1 
980 

2000 SC RE EN O : END 
2010 ' ENCUADRE 

2020 LOCATE O , O ! PR I NT" , 

j n ; 

2030 PRINT" | " ¡ LOCATE 30, 1 ! PRINT" | " 
; : PRINT" | 

1"; 

2040 FOR I%=3 TO 21 '.LOCATE 0,I%:PR 

INT" | " : LOCATE 30, 1%: PRINT" | " J ! NEXT 

2050 PRINT" 1 

i a > 

2060 RETURN 
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MSX por dentro 




¿Y POR QUE NO 
EN LOGO? 



Es agradable escribir unas lí- 
neas con el propósito de 
mostrar algunas de las virtu- 
des del LOGO, sobre todo 
para aquéllos que sólo cono- 
cen uno de sus aspectos más 
difundidos: LA TORTUGA 
y sus gráficos. 



Recientemente en esta misma re- 
vista leí un artículo que presen- 
taba el LOGO a los usuarios de 
MSX y que, cómo no, los ejemplos uti- 
lizados eran procedimientos (léase pro- 
gramas si se quiere) con las primitivas 
que desplazan a la tortuga para realizar 
dibujos. Por ello he pensado que sería 
bueno ilustrar algunos otros aspectos 
de este lenguaje y de sus usos. 
Recordemos que un lenguaje no es otra 
cosa que un programa que se diseña se- 
gún ciertas características y para reali- 
zar determinadas tareas con el ordena- 
dor, y que por lo tanto será bueno si es 
eficiente desde el punto de vista con el 
que se ha construido. 
El LOGO deriva como lenguaje del 
LISP (List Procesing), lenguaje éste 
utilizado en las investigaciones de In- 
teligencia Artificial: es decir, en el in- 
tento de profundizar el conocimiento 
sobre el razonamiento humano crean- 
do con el ordenador pautas similares a 
las de éste, para conocerlo mejor. Por 
otro lado, su creador, Seymour Papert, 
matemático y discípulo de Piaget, 
enuncia la posibilidad de contar con un 
lenguaje que permitiera el desarrollo 
del conocimiento de una manera cons- 
tructiva y sobre la base del descubri- 
miento. Es así como se perfila el desa- 
rrollo del LOGO como lenguaje apto 
para la educación. 

Estos elementos que configuran las ra- 
zones y la filosofía de su diseño hacen 
del LOGO un lenguaje eficiente para 
manipular gráficos y para tratar pala- 
bras encadenadas en listas. 
Tengamos en cuenta que un conjunto 
de palabras con un cierto orden expre- 
san cosas con sentido, es decir ideas, y 
el razonamiento humano está basado 
en el tratamiento de ideas. 
Por todo esto es muy importante que 
ese conjunto de comandos y operacio- 
nes que se pueden realizar ni bien car- 
gamos el lenguaje en la memoria del 
ordenador, sean también palabras con 
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sentido en el lenguaje natural del usua- 
rio. Por suerte, muy recientemente se 
ha publicado la primera lista homolo- 
gada de las primitivas LOGO en caste- 
llano, por el Ministerio de Educación. 
Esperamos que a partir de ahora todos 
los que escriban sobre el LOGO sean 
consecuentes con sus propósitos y de- 
jen de utilizar las palabras en inglés y 
usen las castellanas. 
Pero, ¿qué son en LOGO Comandos y 
qué son Operaciones? 
Lo mejor es usar ejemplos: 
BORRAPANTALLA es un comando, 
BAJALAPIZ y OCULTATORTU- 
GA, también son comandos; mientras 
SUMA, PONPRIMERO y FRASE 
son operaciones. 

En el primer caso basta escribir la pala- 
bra y pulsar el "RETURN" (ENTER 
en otros ordenadores o simplemente la 
tecla que ejecuta las instrucciones escri- 
tas) para que se produzca el resultado 
que deseamos. Mientras que si escribi- 
mos FRASE y pulsamos el "RE- 
TURN", inmediatamente obtendre- 
mos un mensaje por la pantalla. FAL- 



TAN DATOS PARA FRASE. Estos 
datos son entradas que deberemos dar 
para que se realice la operación y 
obtengamos el resultado. 
Por ejemplo si tecleamos: PESCRIBE 
FRASE [LA GALLINA] [ES BIZCA] 
obtendremos LA GALLINA ES BIZ- 
CA y el cursor estará esperándonos 
nuevamente para que volvamos a escri- 
bir nuestras instrucciones. Podemos 
ver como FRASE necesita dos entradas 
y éstas son los datos que deberemos 
poner si queremos que esta operación 
se realice sin errores. 
En LOGO tenemos distintos «objetos» 
con los que podemos trabajar. Un 
objeto LOGO puede ser una palabra y 
su sintaxis (es decir, la forma en que en 
el lenguaje se reconoce su cualidad) se- 
rá "GALLINA. Si escribiéramos "GA- 
LLINA y pulsáramos él "RETURN", 
obtendríamos otro mensaje de error: 
NO SE QUE DEBO HACER CON 
GALLINA. Un objeto LOGO sirve 
para «hacer» cosas. 

Pero si le dijéramos: PESCRIBE "GA- 
LLINA obtendríamos 
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GALLINA 

} . 

Ahora la instrucción ESCRIBE le ha 
dado un sentido a este objeto y lo ha 
escrito en la pantalla. 
Otro objeto muy usado en LOGO es 
un conjunto de palabras a las que lla- 
mamos lista. Su sintaxis es la siguiente 
[LA GALLINA ES BIZCA] ó [ES- 
TOY HECHO UN LIO], es decir, 
utilizamos los corchetes para agrupar 
un conjunto de objetos en una lista. 
Pero, qué pasaría si no utilizamos ni las 
comillas ni los corchetes y le pedimos: 
PESCRIBE GALLINA. Nuevamente 
obtendríamos un mensaje de error: 
NO SE COMO HACER GALLINA. 
Cuando no usamos las comillas ni los 
corchetes el LOGO mira (permítaseme 
utilizar este eufemismo) si GALLINA 
es una primitiva (comando u operación 
del lenguaje), o si es un procedimiento 
(palabra nueva que le hemos enseñado), 
si no es así es lógico que nos diga que 
no sabe cómo hacerlo. 
Hemos llegado ahora a una de las vir- 
tudes más interesantes del LOGO. La 
posibilidad de construir nuevas pala- 
bras a partir de las ya existentes. Po- 
dríamos decir que un procedimiento no 
es otra cosa que una secuencia de ins- 
trucciones que realizará el ordenador y 
que definimos con un nombre. 
Hagamos uno. Para hacerlo utilizare- 
mos la primitiva PARA y la primitiva 
FIN. 
PARA AVES 

ESCRIBE [GALLINA PATO GO- 
LONDRINA LORO] 
FIN 

Ahora una vez pulsado el "RETURN" 
y la tecla "ESC" obtendremos un nue- 
vo mensaje. 

ACABAS DE DEFINIR AVES. 
Cuando escriba AVES y pulse "RE- 
TURN" obtendremos en la pantalla 
GALLINA PATO GOLONDRINA 
LORO y el cursor volverá a esperarnos 
para una próxima instrucción. 
Si escribiera ?ESCRIBE "AVES ¿Qué 
pasaría? !Muy bien! Esta vez hubiéra- 
mos obtenido la palabra AVES en la 
pantalla porque las comillas identifica- 
ban a este objeto como una palabra y 
no como el nombre del procedimiento 
que antes definimos. 
De este modo y para resumir; las ope- 
raciones no sólo requieren datos sino 
que éstos deben ser aquellos objetos 
adecuados para evitar el error. 
Otro ejemplo: PONPRIMERO [LA 
GALLINA ES] BIZCA ¡otro fallo! 
PONPRIMERO requiere como pri- 
mer dato un objeto, pero como segun- 
do dato este objeto debe ser una lista y 
no una palabra como en este caso. Si 
tenemos en cuenta estas cosas podemos 
utilizar las primitivas y hacer procedi- 



mientos que sean realmente interesan- 
tes. 

Pero vayamos ahora a construir un 
conjunto de procedimientos que ten- 
gan cara y ojos para poder apreciar al- 
gunas otras cuestiones del LOGO. El 
proyecto es hacer un sencillo dicciona- 
rio universal, es decir un diccionario 
con el que podamos agregar palabras y 
definiciones. Podremos listar su conte- 
nido y buscar alguna palabra para ver 
su definición. Este diccionario no pre- 
tende más que ilustrar la manera en que 
se programa en LOGO y puede ser 
francamente mejorado, cosa a la que os 
animo. 

PARA DICCIONARIO 
BORRATEXTO 

ESCRIBE [¿QUIERES AGRE- 
GAR, LISTAR O BUSCAR PA- 
LABRAS?] 

ESCRIBE [PARA ACABAR PUL- 
SA LA "F"] 

HAZ "TECLA LEECARACTER 
SI :TECLA = "A [AGREGAR] 
SI :TECLA = "L [LISTAR DIS- 
TADO] 

SI :TECLA = "B [BUSCAR DIS- 
TADO] 

SI :TECLA = "F [ALTO] 

DICCIONARIO 

FIN 



PARA AGREGAR 
BORRATEXTO 

ESCRIBE [ESCRIBE LA PALA- 
BRA Y SU DEFINICION. PARA 
VOLVER AL MENU ESCRIBE 
"MENU Y PULSA "RETURN"] 
HAZ "CONTROL LEELISTA 
SI :CONTROL = [MENU] 
[ALTO] 

HAZ "LISTADO PONULTIMO 
:CONTROL :LISTADO 
AGREGAR 
FIN 



PARA LISTAR :LISTADO 
BORRATEXTO 

SI :LISTADO = [] [ESPERA 100 
ALTO] 

ESCRIBE PRIMERO :LISTADO 
LISTAR MENOSPRIMERO DIS- 
TADO 
FIN 



PARA BUSCAR :LISTADO 
BORRATEXTO 

ESCRIBE [ESCRIBE LA PALA- 
BRA CUYA DEFINICION 
QUIERAS CONOCER] 
ESCRIBE [PARA VOLVER AL 
MENU ESCRIBE "MENU" Y 
PULSA "RETURN"] 
HAZ "PALABRA PRIMERO LE- 
ELISTA 

SI ¡PALABRA = "MENU [ALTO] 



BUSQUEDA ¡LISTADO 
BUSCAR ¡LISTADO 
FIN 

PARA BUSQUEDA ¡LISTADO 
SI VACIO? ¡LISTADO [ESCRI- 
BE [ESTA PALABRA NO ESTA 
DEFINIDA] ESPERA 50 ALTO] 
SI IGUALES? ¡PALABRA PRI- 
MERO PRIMERO ¡LISTADO 
[ESCRIBE MENOS PRIMERO 
¡LISTADO ESPERA 50 ALTO] 
BUSQUEDA MENOSPRIMERO 
:LISTADO 
FIN 

PARA INICIO 
HAZ "LISTADO [ ] 
FIN 

En este conjunto de procedimientos 
hay una serie de cosas interesantes. 
La posibilidad de esperar la interven- 
ción del usuario, más conocida en BA- 
SIC como INPUT, para realizar cieñas 
acciones. En el procedimiento DIC- 
CIONARIO, guardamos el carácter 
leído en la variable de nombre "TE- 
CLA, para, una vez comparado su con- 
tenido en el condicional, llamar al pro- 
cedimiento que nos interesa. En este 
caso utilizamos la primitiva LEECA- 
RACTER, pero en AGREGAR, la en- 
trada desde el teclado no es un carácter 
sino una lista, es decir cualquier cosa 
que escribamos hasta pulsar el "RE- 
TURN" entrará en la variable de nom- 
bre "CONTROL como una lista, por 
ello es que el condicional compara lo 
que hay en "CONTROL con [ME- 
NU], la lista y no "MENU la palabra. 
Si queremos que sea la palabra, fijémo- 
nos en el procedimiento BUSCAR; lo 
que guardamos en "PALABRA es el 
PRIMERO de LEELISTA. ¿Cuál es el 
primer elemento de la lista [MENU]? 
Pues, sí, la palabra "MENU. 
Pero miremos un poco más de cerca las 
variables. La primitiva que las define es 
HAZ y su sintaxis HAZ (que el nom- 
bre) "NOMBRE tenga el siguiente 
contenido. HAZ "nombre objeto. El 
contenido de una variable puede ser un 
número, una palabra, una lista, el resul- 
tado de operaciones LOGO, otra va- 
riable, en fin, miremos en el procedi- 
miento AGREGAR el contenido de la 
variable "LISTADO: una operación 
que pone en último lugar lo que hay en 
la variable "CONTROL; en la misma 
variable que estamos definiendo. Por 
esto es que en INICIO lo que hacemos 
es darle como contenido a listado: una 
lista vacía. Aquí iremos guardando en 
AGREGAR las listas que introduzca el 
usuario; iremos escribiendo el conteni- 
do de nuestro diccionario. Nótese que 
cuando queremos decir el contenido de 
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MSX por dentro 



la variable, utilizamos los dos puntos 
por delante del nombre :LISTADO, 
esta es su sintaxis. 

Imaginemos que el contenido de nues- 
tro diccionario de momento es: [[GA- 
LLINA HEN] [PATO DUCK] [PE- 
RRO DOG]] un grupo de listas donde 
el primer elemento de esa lista es una 
palabra castellana y el segundo su equi- 
valente en inglés. Si lo quisiera listar lo 
pondría como argumento en el proce- 
dimiento LISTAR. Recordemos que 
dice LISTAR :LISTADO. Si simple- 
mente escribiera LISTAR y pulsara 
"RETURN" ocurriría el error FAN- 



TAN DATOS... ¿Cuáles?, el conteni- 
do de la variable. Sigamos con este pro- 
cedimiento. Entro :LISTADO como 
dato. Primera línea, borra el texto, se- 
gunda línea, comprueba que "listado 
no sea una lista vacía, si lo fuera espera- 
ría un tiempo y se detendría el procedi- 
miento. Luego nos escribe en la panta- 
lla el primer elemento de listado -en 
este caso gallina hen- y vuelve a empe- 
zar, pero restando (MENOSPRIME- 
RO) el primer elemento a listado. 
Interesante ¿No? 

Bién, os toca a vosotros descubrir có- 
mo funciona BUSCAR, pero con lo di- 



cho tenéis pistas suficientes. Espero 
que por lo menos esta visión de que el 
LOGO es un lenguaje sencillo pero al 
mismo tiempo potente os anime a co- 
nocerlo mejor. Si así fuera este corto 
artículo hubiera cumplido su cometido 
sobradamente. 

Miguel Figini Michelagnoli 
Director del Centro LOGO 

Centro LOGO de Barcelona 
C./ Entenza 218, D 5." - 08029-BAR- 
CELONA 
Telf. 322 26 14 




N.°l -150PTAS. N.-2-150PTAS. N * 3 y 4 - 300 PTAS. N.° 5 - 1 50 PTAS. N.« 6 - 1 50 PTAS. N.° 7 - 150 PTAS. 




B0OCABO0 

LOCO, UN LENGUAJE DIDACTICO 




¡SI TE HACE FALTA ALGUN NUMERO DE 
PIDELO HOY MISMO! 




N.° 8 - 1 50 PTAS. N.°* 9 y 1 - 300 PTAS. 



Para contar con la más completa colección de programas de MSX sólo tienes que recortar 
o fotocoplar el cupón y < dirigirlo ? Dpto Suscripciones MSX CLUB DE PROCÉÍlilAS 

Roca l Batlle 10-12. 08023 Barcelona. 

1 BOLETIN DE PEDIDO 1 

Sí, deseo recibir hoy mismo ios números de MSX CLUB DE PROGRAMAS, libre de 

gastos de envío, por lo que adjunto talón n.° del Banco/Caja 

por el importe de ptas. a nombre de MANHATTAN TRANSFER, S.A. 

NOMBRE Y APELLIDOS 

CALLE 



■ tllllllllllll | ( 



............................ 



.............. 



N.° CIUDAD 



■•■••■■■■■■■a 



L. 
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DP PROVINCIA 



TEL. 



REGALATE EN ESTAS MAS UN LIBRO 
VITAL PARA EL USUARIO DE MSX 



UN LIBRO PENSADO 
PARA TODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
tente editor todo pantalla. Constan- 
tes numéricas. Series, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 



JAVIER GUI HUERO JUAN ( AHI os GON2ÁI l / 



jún mil itlsciM d« rjtoicUtt 



LOS SECRETOS DEL 




Y ADEMAS PROGRAMAS 
DE EJEMPLO 

Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scrap- 
ple f rom the apple & Donna Lee. The 
entretainer. Teclee un número. Ca- 
lendario perpetuo. Modificación Ta- 
bla de colores SCREEN 1 . Rectán- 
gulos en 3-D. Juego de caracteres 
alfabéticos en todos los modos. Jue- 
go Matemático. Más grande más pe- 
queño. Póker. Breackout. Apocalyp- 
se Now. El robot saltarín. El archivo 
en casa. 



1 Deseo me envíen el libro Los secretos del MSX, para lo cual adjunto talón de 1 .500 ptas. a la orden de 
1 MANHATTAN TRANSFER, S.A. 

Nombre y apellidos 

I Calle n.° Ciudad CP 

i Este boletín me da derecho a recibir los secretos MSX en mi domicilio libre de gastos de envío o 
! cualquier otro cargo. 

importante: Indicar en el sobre MANHATTAN TRANSFER, S.A. 
i «LOS SECRETOS DEL MSX» 

i Roca i Batlle, 10-12 Bajos-08023 BARCELONA 



SORPRENDE A UN AMIGO FELICITANDOLE ESTAS FIESTAS CON 




Deseo remitan LOS SECRETOS DEL MSX a 



Nombre y apellidos i 

¡ calle N.° Ciudad CP ¡ 

i De parte de 

Nombre y apellidos i 

i Para lo cual adjunto talón del Banco/Caja. N.° de 1 .500 - ptas. 

Dicho libro sera remitido por correo certificado incluyendo una felicitación personalizada del 
i remitente. 

¡ Remitir el talón a nombre de: 

i MANHATTAN TRANSFER, S.A. Roca I Batlle, 10-12 bajos - 08023 Barcelona i 

1 1 ■ 
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Monitor al día 




MICRO-GUIA 

El Centre Divulgador de la In- 
formática de la Generalitat de 
Catalunya presentó el pasado 
día 19 de Diciembre el libro "MICRO- 
GUIA" Guia del usuari de petits ordi- 
nadors en. la sede de la Asociació de la 
Prensa de Barcelona. 
Esta útil iniciativa de la Generalitat de 
Catalunya nos presenta un auténtico 
"Hit parade" de los diversos ordenado- 
res y programas formativos disponibles 
en el mercado. 

Además incluye un volante preparado 
junto con la Taula Consumerista de 
Catalunya que agrupa a todas las orga- 
nizaciones de defensa de los consumi- 
dores. 

Felicitamos al Centre Divulgador de la 
Informática por esta Guía — la primera 
de España de estas características — y a 
aquellos que deseen comprarse un 
ordenador en estas Navidades, puesto 
que encontrarán en la "MICRO- 
GUIA" la información adecuada. 



SCORE— OX 


m <vt ui- AfAtM 












KING'S VALLEY 



El desafío egipcio 



Una de las novedades que pre- 
senta Serma S.A. es su cartu- 
cho Konami «King's Valley» o 
lo que es lo mismo «El valle de los re- 
yes» que propone una misteriosa aven- 
tura por los intrincados pasillos de las 
pirámides, plagados de trampas y teso- 
ros ocultos. El juego supone un singu- 
lar entretenimiento por la variedad de 
sorpresas que esperan al jugador a la 
vuelta de cada recodo, escalera o nivel 
en el interior de la tumba del faraón. Su 
precio aproximado es de 5.300 pts. 



MITSUBISHI LANZA NUEVOS 
APARATOS PARA EL 86 
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La prestigiosa firma MITSUBIS- 
HI inicia este año presentando 
dos nuevos ordenadores y varios 
periféricos. Los ordenadores son: 
ML-FX1- Se trata de un ordenador de 
atractivo diseño con las características 
habituales de estos equipos en el mer- 
cado (64 K RAM + 16 VRAM), que 
ofrece como novedad la inclusión de un 
teclado numérico de gran utilidad en 
las aplicaciones profesionales. 
ML-FX2.- Este ordenador tiene las 
mismas características técnicas del 
anteriormente descrito, pero incorpora 
además un programa en ROM (32 K) 
de aplicación. Se trata del MAP (Mitsu- 
bishi Applied Program). Se compone 
de un paquete de 5 programas integra- 
dos dentro de la línea del software más 
profesional. Este paquete incluye: 
-Base de Datos 
-Hoja electrónica 
-Proceso de textos 
-Gráficos y comunicaciones. 
Este paquete de software permite tra- 
bajar con archivos en la unidad de dis- 
co. Además, el MAP también ha sido 
diseñado en cartucho, con lo que los 
actuales usuarios de MSX también po- 
drán disfrutar de sus ventajas: Puesto 
que todos los programas del paquete 
pueden compartir su información entre 
ellos se pueden obtener gráficos de ba- 
rras o de pastel a partir de los datos de 
la hoja electrónica, entrar los datos en 
la hoja a partir de la base de datos... 
Entre los periféricos cabe citar la uni- 
dad de diskette de 3,5 pulgadas 
ML-03 FD que tiene una capacidad de 



1 Mb (un Megabyte) sin formatear y 
720 K formateados, 8 difrentes forma- 
tos de grabación, y sistemas operativos 
CP/M y MSX-DOS. 
También se alegrarán los usuarios de 
MSX al saber que entre los nuevos pe- 
riféricos de Mitsubishi está el ratón 
gráfico ML-10 MA, que conectado al 
port de joystick y con ayuda del pro- 
grama en cinta que se suministra junto 
a él, permitirá crear gráficos con suma 
facilidad. Además, puede utilizarse co- 
mo joystick. 

Además de todo esto, Mitsubishi tam- 
bién lanza una lectograbadora de cas- 
sette y un joystick anatómico. 
Realmente han empezado el año arro- 
llando estos de Mitsubishi! 





BRIAN JACKS SUPERSTAR 

El héroe deportivo 

Zafiro Software División -P.° de la 
Castellana 141 - 28046 Madrid- 
ha entrado en el sistema MSX 
con un interesante juego deportivo. 
Nos referimos al Brian Jacks Superstar, 
un judoka campeón y estrella de la tele- 
visión norteamericana, que ha dado 
origen a un juego en el que los jugado- 
res deben competir con él en distintas 
disciplinas deportivas: paralelas, flexio- 
nes, canoa, ciclismo, fútbol, natación, 
arco y 100 metros lisos. Es un juego 
que se presenta muy entretenido y va- 
riado sin necesidad de matar marciani- 
tos. 



Instructor Mecanográllco 1 
Incluyendo lecciones, 



.JUEGO 



Mea 
ypé 




IDEA TYPE 



Instructor mecanografía» 



« 



I 



dea Type» es un programa que 
consiste en un instructor me- 
canográfico, que incluye lec- 



ciones, ejercicios y juegos destinados a 
dar más práctica a los futuros mecanó- 
grafos. El programa empieza con la 
identificación de las teclas de una má- 
quina de escribir y una serie de conse- 
jos útiles y pasa posteriormente a una 
serie de lecciones cuya dificultad se 
presenta de menor a mayor. «Idea Ty- 
pe» consta de doce lecciones, al térmi- 
no de cada una de las cuales se da una 
estadística del ejercicio a fin de que el 
alumno pueda evaluar su progreso. Es- 
ta versión para MSX ha sido desarrolla- 
da por Icfealogic S.A. Valencia, 85 - 
08029 Barcelona. 



:YES PHILIPS PC 



El PC compatible con el 
MSX-DOS 



L 



a compañía Philips comercializa 
entre su gama de productos in- 
formáticos de mayor potencia 




un ordenador personal que trabaja tan- 
to con el sistema operativo MS-DOS 
como con el MSX-DOS, según in- 
forma en un detallado artículo nuestra 
colega holandesa MSX-INFO. El :YES 
PHILIPS PC es un aparato de gran po- 
tencia destinado a usos muy determi- 
nados dentro del sector empresarial e 
industrial. 




TALENT DPC-200 

El MSX argentino 

Como ya anticipábamos en nues- 
tro número anterior el MSX ya 
se comercializa en Argentina. 
La firma Telemática S.A. ha iniciado la 
fabricación del aparato DPC-200 con 
licencia de la tirma coreana Daewoo. El 
MSX argentino lleva el nombre de Ta- 
lent y mantiene las mismas pautas de 
diseño y calidad del aparato original. 



La presentación del DPC-200 Talcnt 
constituyó un extraordinario éxito, lo 
que ha motivado a la compañía Tele- 
mática a incrementar su ritmo de pro- 
ducción que hasta el momento es de 
5.000 aparatos al mes. 
Para instruir al usuario, tanto en el uso 
y manipulación del aparato, como en el 
MSX BASIC, Telemática S.A. ha edita- 
do un «Manual de uso y MSX Basic» 
muy completo y didáctico. Es de seña- 
lar que las instrucciones del uso del T a- 
lent tanto como las del lenguaje MSX 
Basic van acompañadas de gráficos ex- 
plicativos y de pequeños programas. 



r. 



2.° GRAN CONCURSO [ 




1. °- Podrán participar todos nuestros lectores 
cualquiera sea su edad. 

2. °- Los programas se clasificarán en tres cate- 
gorías: 

Educativos 
Gestión 

Entretenimiento 

3. °- Los programas deberán ser remitidos gra- 
bados en cassette debidamente protegidas, den- 
tro de su estuche de plástico. 

4. °- No entrarán en concurso aquellos progra- 
as que ya hayan sido publicados por otros 

medios o plagiados. 

5. °- Junto a los programas se incluirán las ins- 
trucciones correspondientes, detalle deias varia- 
bles, ampliaciones posibles y todos aquellos co- 
mentarios que el autor considere de interés. 

6. °- Todos los programas han de estar estruc- 
turados de modo claro, separando con REM los 
distintos sectores del mismo. 



PREMIOS 

7. °- MSX CLUB OTORGARA LOS SI- 
GUIENTES PREMIOS: 

JOYSTICK DE ORO MSX CLUB Y UNA 
UNIDAD DE DISCO AL MEJOR PROGRA- 
MA DEL ANO 

Además mensualmente se premiarán los pro- 
gramas publicados del siguiente modo: 
10.000 pts. los programas Educativos 
10.000 pts. los programas de Gestión 
6.000 pts. los programas de Entretenimiento 

8. °- MSX CLUB DE PROGRAMAS se reser- 
va el derecho de publicar fuera de concurso 
aquellos programas de reducidas dimensiones 
que sean de interés, premiando a sus autores. 



FALLO Y JURADO 

9.°- El Departamento de Programación de 
MSX CLUB DE PROGRAMAS hará la primera 
selección de la que saldrán los programas publi- 
cados en cada número de la revista. 

10. °- Los programas no se devolverán salvo que 
así lo requiera el autor. 

11. °- La elección del PROGRAMA DEL AÑO 
se hará por votación de nuestros lectores a través 
de un boletín que se publicará en el mes de octu- 
bre de 1986. 

12. °- El plazo de entrega de los programas finali- 
zará el 3 1 de octubre de 1986. 

13. °- El fallo se hará conocer en el número de di- 
ciembre de 1986, entregándose los premios en el 
mismo mes. 
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Programa 



CODIFICADOR DE 
RESISTENCIA 



iPor Luis Alfonso Ureñai 



Magnífico programa que 
permite calcular el valor 
óhmico de resistencias que 
tengan código de colores. Su 
empleo es sencillo y consiste 
en introducir los colores. El 
programa da su valor y tam- 
bién una representación grá- 
fica de la resistencia. 



Programa 




niDtíP*. 1. 1 )>QCJt'>¿*» ir CtoscrniD» 



10 
20 ' 

30 ' CODIFICADOR RESISTENCIAS 
40 ' 

50 ' ESCRITO POR: 

60 ' 

70 'LUIS ALFONSO UREmA LOPEZ 
80 ' 

30 ' TORREDQN J I MENO 1.985 
100 ' 

110' PARA MSX-CLUB 

1 20 ' ========================= 

1 30 COLOR 1,15,1 5 

140 SCREEN 2 

150 KEY ÜFF 

160 OPEN "GRP : " ASttl 

1 70 ' ===================== 

180 ' 

130 ' INSTRUCCIONES 
200 ' 

220 PSET ( 20 , 1 O 5 , 1 5 ! PR I NTtt 1 , " DECOD I F I 
CADÜR RESISTENCIAS" 

230 PSET C 20 , 20 > , 1 5 : PR I NTtt 1 , " ======== 

240 PSET ( 20 , 40 ) , 1 5 : PR I NTtt 1 , " Es te p r o 
grama per m i te cale u--" 

250 PSET < 20 , 55 ) ,15; PR I NTtt 1 , " 1 a P el y 
alor Qhrnico de re-" 

260 PSET < 20 , 70 ) , 1 5 : PR I NT# 1 , " s i s tenc i 
as que posean código" 

270 PSETC20,8S> , 15:PRINTttl , "de color 
es. " 

280 PSET < 20 , 1 00 > ,15: PR I NTtt 1 , " Ra ra el 
1 o es ne c esa r i o i n— " 

230 PSETC20, 1 1 5) , 1 5 ! PRINTttl , "troduc i 
r los colores, obte-" 

300 PSET ( 20 , 1 30 ) , 1 5 ! PR I NTtt 1 , " n i endoS 

además de su valor" 
3 1 PSET i 20 , 1 45 > , 1 5 ¡ PR I NTtt 1 , " una s i 
rni lar representac i ón" 

320 PSET ( 20 , 1 60 > , 1 5 : PR I NTtt 1 , " de la m 
i ama . " 

330 PSET C 55 , 1 80 ) , 1 5 : PR I NTtt 1 , " « PULSA 

UNA TECLA »" 
340 A*=INKEY*:IF A$="" THEN 340 
350 
360 
370 
380 

400 BEEP : BEEP 

4 1 DATA NEGRO , MARRON , ROJO , NARANJA , A 
MAR I LLO , VERDE , AZUL , V I OLETA , GR I S , BLAN 
CO 

420 READ A 1 $ , A2* , A3* , A4* , AS* , A6* , A7* 
, A8* , A9* , A I 0* 

430 DATA NEGRO , MARRON , ROJO , NARANJA , A 
MAR I LLO , VERDE , AZUL , ORO , PLATA 
440 READ B 1 * , B2* , B3* , B4* , B5* , BS* , B7* 
, B3* , B9* 

450 DATA MARRON , ROJO , ORO , PLATA 

460 READ C1*,C2*,C3*,C4* 

470 CLS : COLOR 1,15,15: SCREEN 1 ! KEY 



REFLEJO CONSTANTES 



FF ! CLOSEttl 

480 CLS : COLOR 1,15,15 
430 SCREEN 1 ¡KEY OFF 

500 LOCATE 1 , 1 : PRI NT" CODIFICADOR DE 
RESISTENCIAS" 

510 LOCATE 1 , 2 : PRI NT" =============== 



520 LOCATE 6 , 6 : PRINT" INTRODUCE DATOS 

a 

530 LOCATE 6, 7 ¡PRI NT" 

ít 

540 BEEP : BEEP 

550 LOCATE 1 ,10: INPUT" ¿ 1 ¡2 COLOR SIGN 
. " ; A* 

560 BEEP : BEEP 

570 LOCATE 1,13: INPUT" ¿22 COLOR SIGN 
. " ; B* : BEEP : BEEP 

580 LOCATE 1,16: INPUT" ¿MULTIPLICADOR 
. " ; D* : BEEP : BEEP 

590 LOCATE 1,13: INPUT" ¿TOLERANCIA. . . 

. " ; E* : BEEP : BEEP 

600 ' ===================== 

610 ' 

620 ' OPERACIONES LOGICAS 
630 ' 

650 IF A*="NEGR0"THENS=0:K%=1 
660 IF A*=*A2* THEN S=1:K%=3 
670 IF A*=A3* THEN S=2 : K%=8 
680 IF A*=A4* THEN S=3 ¡ K%=9 
690 IF A$=A5* THEN S=4:K%=11 
700 IF A*=A6* THEN S=S : K%=3 
710 IF A$=A74 THEN S«S : K%=4 
720 IF A*=AS* THEN S=7:K%=13 
730 IF A*=A9* THEN S=8:K%=14 
740 IF A*=A10* THEN S=9¡K%=15 
750 IF A*=" NEGRO "OR A*=A2$ OR A*=A3* 
OR A*=A4* OR A*=A5* OR A*=A6* OR A* 
=A7* OR A*=Á8* OR A*=A9* OR A*=A10* 
GOTO 770 
760 GOTO 550 

770 IF B*«A2* THEN R-1 : J%=8 
780 IF B*=A3* THEN R=2 ¡ J%=8 
730 IF B*=A4* THEN R=3 : J%=9 
800 IF B*=A5$ THEN R=4:J%=11 
810 IF B*=A6* THEN R=5 ¡ J%=3 
820 IF B*=A7* THEN R=6 : ,T%=4 
830 IF B*=A8* THEN R=v:J%=13 
840 IF B*=A9$ THEN R=8 : J:%« I 4 
850 IF B*~A1 O* THEN R=9:J%=15 
860 IF B*=" NEGRO" THEN R«OS J%*1 
870 IF B*==" NEGRO" OR B*=A2* OR B**A3* 
OR B*»A4* OR B*=A5* OR B*=A6* OR B* 
=A7* OR B*=A8* OR B¿*A9* OR B*=A10* 
GOTO 890 
880 GOTO 570 

890 IF D*=B2* THEN U*=" 1 OSÍ" ! M%=8 
900 IF D*=B3* THEN U*=" 1 OOft" : M%=8 
910 IF D*=B4* THEN U*=" 1 Kíí" : M%=9 
920 IF D*=B5$ THEN U*=" 1 OKSi" : M%=11 
930 IF D*=B6* THEN U*=" 1 OOKft" : M%=3 
940 IF D*=B7* THEN U*=" 1 Mfí" : M%=4 
950 IF D*«BS* THEN U*=" . 1 '¿t" : M%= 1 O 
960 IF D*=B9$ THEN U*="0 . 01 St" ¡ M%=1 4 
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970 IF D$==" NEGRO" THENU$— " 1 Si" : 11%= 1 
980 IF D*=" NEGRO "OR D*=B2$ OR D*=B3* 
OR D*=B4* OR D**BS* OR D*=B6* OR D* 
=B7$ OR D$=B8* OR D$=B9$ OR D*=B10* 
GOTO 1000 
990 GOTO 580 

1000 IF É**C1* THEN V*="±1%":N=8 
1010 IF E$=C2$ THEN V$="±2%":N=1 
1020 IF E*=C3* THEN V$="±5%" : N=l O 
1030 IF E$=C4$ THEN V*="± 1 0%" ¡ N=l 4 
1040 IF E$=C1*0R É*«C2* OR E*=C3* OR 

Ef*C4* GOTO 1060 
1 050 GOTO 590 
1060 SCREEN 2 

1 070 OPEN" GRP : " AS# 1 ! PSET C 70 , 1 30 ) ! PR 
INTttl , "LA RESISTENCIA" 

1 OSO PSET (95,1 50 ) ! PR I NT# 1 , " EN OHM I OS 
w 

1 090 BEEP : BEEP 

1 1 00 PSET C 60 , 1 70 ) , 1 5 : PR I NT # 1 , " R C íí ) = 
" : BEEP : BEEP 

1 1 1 O PSET ( 95 , 1 70 > , 1 5 : PR I NT # 1 , S ¡ BEEP 
: BEEP 

1 1 20 PSET ( 1 05 , 1 70 3 ,15: PR I NT# 1 , R ¡ BEEP 
: BEEP 

1130 PSET( 127, 170) , 15;PRTNT #1,"X":B 
EEP : BEEP 

I \ 40 PSET C 1 40 , 1 70 ) , 1 5 : PR INT # 1 , U* : BE 
EP : BEEP 

1 1 50 PSET C 1 30 , I 70 ) , 1 5 : PR I NT # 1 , V* : BE 
EP : BEEP 

1 1 60 ' =— ============—===== 

1 1 70 ' 

USO ' DISEÑO RESISTENCIA 
1 1 90 ' 

1210 PSET (85, 1 ) ¡PRINTttl , "C O D I G O 
" : BEEP : BEEP 

1220 PSET ( 50 . 20 ) ¡ PR I MT# 1 . " R E S I S 



T E N C I 



ÍEP : BEEP 



1 230 PSET ( 50 , 20 ) ! PR I NT# 1 , " R E S I S 
T E N C I A" 

1 240 C I RCLE ( 80 , 70 ) , 20 ,6,1. 5707 ,3.141 
5,1. 4 

1 250 L I NE ( 80 , 50 ) - ( 1 80 , 50 ) , 6 

1 260 C I RCLE ( 1 80 , 70 ) , 20 ,6,6. 283 1 85293 

# , 1 . 5707 ,1.4 

1 270 C I RCLE C 80 , 80 ) , 20 , 6 , 3 . 1 4 1 5926465 

# , 4 . 738896975# ,1.4 

1 280 L I NE ( 80 , 1 00 :> - ( 1 30 , 1 00 ) , 6 

1 290 C I RCLE C 1 80 , 80 ) , 20 , 6 , 4 . 7 1 238836# 

,0,1.4 

I 300 PSET ( 65 , 80 ) : DRAW" C6U 1 O" 

1310 PSET ( 194, 79 ) ! DRAW" C6U 1 O " 

1320 PAINTÍ80,80) , 6 

1 330 L I NE ( 1 O , 70 ) - ( 65 , 78 ) , 1 4 , BF 

1340 LINEC195,79)-(240,70), 14, BF 

1350 PA INT (80 ,80) ,6 

1 360 PSET ( 85 , 50 ) ! DRAW" C4DS0C4 " 

1370 BEEP 

1 380 L I NE ( 85 , 50 ) - ( 35 , 1 00 ) , K% , BF 
1 390 PSET < 95 , 50 ) ! DRAWC6D50C4" 
1 400 PSET ( 110, 50 ) : DRAW" C6D50" 
1410 BEEP 

1 420 L I NE ( 1 1 O , 50 ) - ( 1 20 , 1 00 ) , ,T% , BF 
1 430 PSET ( 1 20 , 50 ) ! DRAW" C6D50" 
1 440 PSET ( 1 35 , 50 ) ¡ DRAW" C6D50" 
1450 BEEP 
1460 LINEC 135,50) 
1470 PSET(145,S0) 
1480 PSET(160,50) 
1490 BEEP 

1 500 LIIMEX1 60 , 50 ) - ( 1 70 , 1 00 ) , N , BF 
1510 PSET C 1 70 , 50 ) ¡ DRAW" C6D50" 
1520 N*=INKEY* 
1530 IF m="" THEN 1520 
1540 RUN 410 



( 1 45 , 1 00 ) , m , BF 

DRAWC6D50" 

DRAWC6D50" 



Test de listado 



Codificador de resist 






- 58 


240 




_. c o 
•«5'-' 


250 


30 


— F.P. 


260 


40 


— FiF' 


270 


50 


- 58 


280 


60 


- 58 


290 


70 


58 


300 


80 


- 53 


3 1 


90 


r 58 


320 


1 00 




330 


1 1 


- 58 


340 


120 


- 58 


350 


1 30 


- '33 


360 


1 40 


-2 1 6 


370 


1 50 


• 1 83 


380 


1 SO 


-224 


390 


1 70 


- 58 


400 


! 80 


-- 58 


4 1 


1 30 


- 58 


420 


200 


- 58 


430 


210 


- 58 


44-0 


220 


~ '38 


450 



• 1 04 
134 

-no 

- 84 
82 

-225 
6 

• i 66 

• 43 
•202 

• 58 



186 
1 38 



470 


- 97 


700 


- 39 


930 


480 


~ 60 


71 




94 


490 


--200 


720 


-101 


Í i : ; Ó 


500 


- 1 00 


730 


-1 04" 


9G0 


5 1 


-167 


740 


- 1 46 


970 


520 


-105 


750 


.... ] 1 9 


980 


530 


-- 1 06 


760 


■ 191 


990 


540 


-- 1 86 


770 


- 85 


1 000 


550 


- 48 


780 


~ 87 


1 01 


560 


1 86 


790 


- 90 


1 020 


570 


-- 41 


800 




1 030 


580 


- 1 26 


310 


_ ¡•~¡¡-'¡ 


1 040 


590 


- 21 


320 


- 91 


1 050 


600 


_ . l: 


330 


- 1 00 


1 060 


610 


- 53 


34 


- 1 03 


1 070 


620 


- 58 


850 


- ! 45 


1 080 


630 


— 53 


360 


.... -| •, 7 


1 090 


640 


- 58 


870 


-249 


1 1 00 


650 


-1 18 


330 


-21 1 


! 1 1 


660 




890 


-255 


i i 20 


670 


- 88 


900 


- 48 


1 1 30 


6 30 


- 91 


91 


- 29 


1 1 40 
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Programa 



iPor Javier Benito 



SATELITE 
ESPACIAL 



Un entretenido juego que 
consta de seis pantallas dife- 
rentes en las que el jugador 
tiene que poner mucha habi- 
lidad para superarlas. Cada 
pantalla es una misión con 
dificultades crecientes hasta 
que consigues llegar al lugar 
donde se encuentra la lanza- 
dera que te devolverá a la 
Tierra. 



10 ' SATELITE ESPACIAL 
20 ' POR JAVIER BENITO 
30 ' PARA MSX CLUB 
40 ' 

50 ' #PRESENT ACION* 
60 ' 

70 SCREEN3 , 3 ! CLEAR2000 ! COLOR 15,1 
2,13; CLS ¡ OPEN"GRP ! "F0R0UTPUTAS#1 
80 PRESET C 1 , 50 ) ¡ PR I NT# 1 , " SATEL I T 
E" 

90 PRESET C 10,1 00 5 ! PR I NT# 1 , " ESPAC I 
AL" 

1 00 X*=" VI 5T1 0004DEFGA2FG#2EGFDEF 

GA205DC#2" 

110 PLAYX* 

1 20 IFPLAYC 1 ) O0THEN1 20 

1 30 COLOR 11,13,12: CLS ! PRESET « 60 , 1 

03 :PRINT#1 , "P O R" 

1 40 PRESET C 40 , 60 ) \ PR I NT# 1 , " J A V I ER 

1 50 PRESET <. 40 , 95 ) ¡ PR I NT# 1 , " BEN I TO 

1 60 PRESET t 30 ,150): PR I NT# 1 , " ( A V I L 
A)" 

1 70 Y$="04DEFGA2FG#2EGF205DC#C04B 
A#205C#D2. " 
180 PLAYY3» 

Í 90 I FPL A Y ( 1 ) < >OTHEN 1 90 

200 SCREENO ! KEYOFF ! COLOR 15,4,4: C 




220 LOCATE 1 O ¡ PRINT" INSTRUCCIONES" 
230 PRINT"! 



240 PRINT" El juego consta de se 
Ms misiones " 

250 PRINT" * En la primera deberá 
s atravesar " 

260 PRINT" toda la pantalla esquiv 
a n d o los m e --• t eoros. " 
270 PRINT" *En la segunda y suces 
ivas te ata-- carán tres naves en 
e m i g a s . E n 1 a t e r c e ra, c li a r t a y 



quinta las naves se- rán invisib 
Ies y sólo las veras al dispara 
r . " 

280 PRINT" En la sexta y última 
tendrás que efectuar un acoplam 
i e n t o e n 1 a lanza - d e r a q u e t e 1 1 e 
va r á a 1 a T i erra. " 

290 PRINT" :+: Comenzarás el juego 
c o n t r e s a s - t r o naves. S i des t r u y 
es la nave enemigamorada te darán 
f ue 1 . " 

300 PRINT" # Si llegas a los 20.0 

00 p t s . € en I as ms i ones 2 , 3 ,4,5 ) 

1 a p a n t a 1 1 a s e p o n d r á d e c o 1 o r a 
m a r i 1 1 o y c o n s e g u i ras o t r a n a v e . 

C Pu 1 sa una te c 1 a ) " 
310 F$~"" 
320 F$~INKEY$ 
330 IFF*=""THEN320 

340 SCREEN2 , 2 ! COLOR 1 5 ,.4 , 4 ! CLS ¡ PR 
ESET < 30 , 1 00 > : PR I NT# 1 , " -JUEGAS CON 
TECLADO*! S/N > " 
350 Nl$="" 
360 N1$=INKEY$ 

370 IFN1 *= W S"0RN1 *="s"THENZ=0 
380 IFN1 $="M"0RN1 *="n"THENZ=l 
390 I FN 1 $=" " THEN360 
400 Wl $="V1 3T20004CF2G2AA#05C04A# 
A2GGF2. CF2G2AA#05C04A#A2GGF2. " 
410 W2$=="05C04AttA2A#AG3. 05C04AttA2 
A#AG3 . " 

420 W3$=="05C04AFG2F2" 

430 VI $="V1 2T20003FG2AAtt04C03A#A2 

GGF2. CF2G2AA#04C03A#A2GGF2. " 

440 V2$--="04CÜ3AAttAG3. 04C03A#A2A#A 

G3. " 

450 V3*«" 04C03FG2F2" 

460 PLAYW1^,VI$ 

470 PLAYW2^,V2$ 

480 PLAYW3^,V3$ 

490 ' É**^^*^€***5lC5^! 

500 ' :*:PRIMERA MISION* 

51 ' *3^****#**^|í*^#i 

520 COLOR 15,1,1: CLS ! G0SUB3S30 ! Cl 
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•5 



S : QÜSUBl 650 : NA=3 : GOSUB! 370 ! X«30<3 ! 

Y=0 ; GOSUB 1 1 90 ! G0SU81 340 

5 3 ' t * * * * * i * * * * % * * * * $ 

540 ' *SPRITES MOVILES* 

550 ' ^^t************* 

560 F 1 *=CHR* C SH3 3 +CHR* C &H7 3 +CHR* <: 

&KF ) +CHR* C &H 1 F > +CHR* C &H3F 3 +CWR* C & 

H7F 3 +CHR$ ( SíMFF 3 -+CHR* C &HFF ) 

570 F2*=CHR* ( &H7F > +CHR* < &H 1 E >•+ CHR 

Ü? C &H<3 3 +CMR* ( &H0 3 **CHR* i &H 1 3 *CHR$ C & 

H3 3 +CHR* C &H3 > +CKR* < &H 1 ) 

580 F3*^GHR* <: &HEO ) +CHR* C &HEO > +CHR 

$ ( SeHFO ) +CHR* í &HFC ) H CHR* C StMFF ) + CHR 

$ C &HFF 3 +GHR* ( &HFF ) +CHR* ( &HFF ) 

590 P4*~eHR* <■ &HFF > +CHR* ( &H3C ) ' CHR 

* C &H i O 3 +CHR* ( &H80 ) +CHR$ í &NEO ) +CHR 

* ( Sií ICO > +CHR* C &H8Q 3 +CHR* C &H0 3 
600 SPR I TE* C 1 O 3 ~F '! *+ F2*+F3*+F4* 
610 X%=5:Y%==35 

620 ' 

630 ' *PROGRAMA PRINCIPAL* 

640 ' i*:**:*:**:*:*:*:**:*:******** 

650 X=X-3 

660 E«8TICKCZ3 

670 IFPLAYU 3 «QTHENPLA Y W2* 

630 I FE^= 1 THENY%=Y%-3 ! BN-BN+ 1 O 

630 IFE=3THENX%=X%h 3 ¡ BN«BM+10 

700 I F E ~ 5 T HE N Y % « Y % H 3 ! BN=8N f I O 

710 IFE=7THENX%=X%-3 ! BN=BN+1 O 

720 IFE=2THENX%=X%+3 ¡ Y%=Y%~3 ! BN=B 

n+s 

730 IFE==4THENX%=X%+3 ! Y%=Y%+3 ! BN-B 
N+S 

740 I FE=6THENX%=X%- 3 ! Y%=Y%+3 ! BN*B 
N+5 

750 I FE=8THEN X %m X %~3 Y%«Y%~3 ! BN=B 
N+5 

760 I FY% < 1 OTHENY%~ 1 O 

770 IFY%>1 60THENY%=1 60 

780 IFX%<5THENX%=5 

790 IFX%>=250THENSCREEN2,2:G0TG 3 
530 

800 X%=X%-1 

81 O PUTSPRITE1 , < X%, Y%3 ,15,1 

820 ' 

830 ' -ASTEROIDES- 

840 ' 

850 PUTSPRITE2 , ( X , Y ) , 1 1 , 1 O 

860 PUTSPR I TES , C X , Y+ 1 7 5 , 1 1 , 1 O 

870 PUTSPR ITE4 , C X+50 , Y+90) ,11,10 

880 PUTSPR I TES , ( X+50 , Y+1 1 O ) , 1 1 , 1 O 

890 PUTSPR ITE6 , ( X + 1 21 , Y+1 41 ) , 1 1 , 1 
O 

900 PUTSPR ITE7 , < X+95 , Y+ 1 23 3 , 1 1 , 1 O 

9 1 O PUTSPR I TES , C X + 1 94 , Y+ 1 65 > , 11 , 1 
O 

920 PUTSPR I TE9 , ( X + 1 55 , Y+34 > , 1 1 , 1 O 

930 PUTSPR I TE 1 O , i X+l 1 O , Y+75 ) , 1 1 , 1 



O 

940 PUTSPR I TE 1 1 , C X + l 30, Y+1 29) ,11, 
1 O 

950 PUTSPR I TE 1 3 , C X+l 38 , Y+59 3 , 11,1 
O 

960 PUTSPR I TE 1 4 , í X+2S , Y+59 ) , 1 1 , 1 O 
970 PUTSPR I TE 1 5 , C X + l 72, Y+59 3 > 1 1 , 1 
O 

980 PUTSPR I TE I 6 , (X 16, Y+1 91 3 ,11,1 

O 

990 ONSPR I TEGOSUB 1 050 
1000 SPR J.TEON 
1010 GOTO 650 

1030 ' -EXPLOSION- 

1 040 ' 

1050 SPRITEOFF 

1 060 GÜSUB3070 

1 070 X*300 ¡ Y*0 : X%=20 : Y%-1 00 

1080 GQSU81870 

1090 ÍFNA«0THEN32O0 

1 1 00 RETURM 

1 1 1 O ' Í****W*3^****t*#5JÍ*S*t* 
1120 ' AMISIONES ¡2- ,3- ,4- Y 5-* 
1 1 30 ' i*::*:*:*:*:*::*::*:*********** 
1 1 40 END 

n so ' 

1160 ' *SPRITES MOVILES* 
11 70 ' **************** 
1 1 80 SCREEN2 , 2 

1 1 90 A 1 *=CHR$ C &HF ) +CHR* ( &H4 ) +CHR* 
C &H2 > +CHR* (. 8tH 1 ) +CHR$ C &H 1 ) +CHR$ C &H 
2 > +CHR* C &H4 ) +CHR* ( &H9 5 

1 200 A2$=CHR$ C &H9 ) +CHR$ C &M4 ) +CHR'$ 
C &H2 > +CHR$ C &H 1 ) +CHR$ C &H 1 ) +CHR* C &H 

2 ) 4-CHR*< &H4 ) +CHR$ C &HF ) 

1 2 1 O A3$=CHR$ C &HFO ) +CHR$ ( &H20 ) +CH 

R$ C &H40 ) +CHR* ( &H80 ) +CHR£ C &H80 ) +CH 

R$ C &H40 ) +CHR* C &H20 > +¿HR* C &H90 ) 

1 220 A4*«CHR* C &H90 > +CHR* C &H20 ) +CH 

R$ í &H40 ) +CHRf i &H80 ) +CHR* < &H80 ) +CH 

Rf> C &H40 ) +CHR* C &H20 ) +CHR$ C &HFO > 

1 230 SPR I TE* C 1 >«A1 *+ A2*+A3*+ A4* 

1 240 I FFA- 1 O R F A ~ 6 T H E N R E T U R N 

1 250 B 1 $«CHR* £ &H 1 ) +CHR* É &H3 ) +CHR* 

C &H7 > +CHR* <: &HF 3 +CHR* C &H 1 F ) +CHR* C & 

H3F > •» CHR* C &H7F > +CHR* C &HFF ) 

1 260 B2*=CHR* ( &HFF 3 +CHR$ í &H7F > +CH 

m (. &H3F ) +CHR* ( &HÍ F5 +CHR* C &HF ) +CHR 

*<&H3)+CHR*(&H1 )+CHR*c:&HO) 

1 270 B3*=CHR$ C &H0 ) +CHR* C &H0 ) +CHR* 

C &H0 )+CHR*C &H0 )+CHR*C &H0 )+CHR$C &H 

O ) +CHR* ( &H0 > +CHR* C &H50 ) 

1 280 B4*=CHR*c:&HAA)+CHR*C&H5)+CHR 

* ( &H0 ) +CHR* C &H0 3 + CHR* C &H0 > +CHR* C S< 

HO > +CHR* < 8»H0 ) +CHR* C &H0 ) 

1 290 SPR I TE$ C 2 3 =B 1 *+B2*+B3$+B4* 

1 300 C2*=CHR*C&HC0)+CHR*C&HE0)+CH 



26 



R$ ( &HFO 3 +CHR*< &HFF 3 +CHR* C &HFF 3 +CH 

R$ ( &HFF 3 +CHR$ C &HFO > +CHR* < &HCO ) 

1 3 1 O C3*»CHR* C &HO 3 +CHR* C &HO 3 +CHR* 

( &HO 3 +CHR* C mO 3 +CHR* C &H80 3 +CHR$ C & 

HO > +CHR* C &H0 ) +CHR* í &H0 3 

1 320 C4*=CHR* C &H0 ) +CHR* C &H0 3 +CHR* 

( &H0 ) +CHR* C &H0 3 +CHR* t &HSQ ) +CHR* C & 

HO 3 +CHR* C &H<3 3+CHR$ C &H0 3 

1 330 SPRITE*<33=C1 *+C2*+C3*+C4* 

1 340 D 1 *=CHR$ í &H8Q ) +CHR* C &H40 ) +CH 

R$ ( &H20 ) +CHR* C &H 1 1 3 *CHR* C &H5 > +CHR 

* C &H7 ) +CHR$< &HF 3 +CHR* ( &H 1 F ) 

I 3 SO D2$=CHR* C &H 1 F > +CHR* C &HF ) +CHR 

$ C &N7 3 +CHR* ( &M5 ) +CHR* C &H 1 1 3 +CHR* C 

&H20 > +CHR* C &H4Q 3 +CHR* C &H80 > 

I 360 D3*»CHR* í &H 1 ) +CHR* C &H2 3 +CHR* 

C &H4 3 +CHR$ É &HSS ) +CHR* C &HDO 3 +CHR* C 

&HEO 3 +CHR* £ &HFO 3 +CHR* C &HF8 ) 

1 370 D4*=CHR* ( &HF8 3 +CHR* C &HFO 3 +CH 

R* C &HEO 3 -i-CHR$ ( &HDO 3 +CHR* C &H88 ) +CH 

R* C &H4 3 +CHR* ( &H2 3 +CHR* < &H 1 ) 

1 330 SPR I TE* C 5 3 «D 1 **D2*+D3*+D4* 

1 330 I FFA= 1 ORF A-6THENRETURN 

í 400 E 1 $=CHR* C m 1 3 +CHRSÍ &HF 3 +CHR* 

( &H 1 F 3 +CHR$ C SH3F 3 +CHR* C &H7F 3 +CHR* 

C &H7F 3+CMRSC &H7 HCHR*< &H7 3 

I 4 1 O E2*=CHR*< &H7 3 +CHR* C &H7 3 +CHR* 

C M \ 7 3 C &H3 3 +CHR* ( &H4 3 +CHR$ C &H 

4 3 i CHR* ( &H0 3 +CHR* < &H0 3 

1 420 E3*«CHR* t &H80 ) +CHR$ C &HFO ) +CH 

m (. &HFO 3 +CHR$ C &NF8 3 +CHR* C &HFC ) +CH 

R$ C &HFC 3 +CHR* C &HÓ 3 C &H0 3 

1 430 SPR I TE$ C 4 3 =E 1 *+E2*-+ E3$ 

1 440 SPR I TE$ C 7 3 «CHR* ( StH 1 S 3 +CHR* C & 

M ! 8 3 + CHR^ i &H3C 3 +CHRf C &H7E 3 ■+ CHR* C & 

H I 8 ) +CHR* <: &H 1 8 3 +CHR* C &H 1 S 3 +CHR* C & 

NT 8 3 

1 450 ' 

1460 ' *COMXENZq Y VARIABLES* 

1 470 ' *3m^^*t^*****5l^***# 

1 480 COLOR 14,1,1: CLS ! TY=0 ! FU*0 

1 490 C I RCLE C 3 1 O , 96 ) , 96 , 1 4 

1500 CI RCLE (230,96), 5, 13 

1510 C I RCLE < 235 ,76), 5, 12 

1520 CI RCLE (235, 116) ,5,6 

1 530 P A I NT C 230 , 36 3 , 1 3 : P A I NT ( 235 , 7 

63 , 1 2: PAINTC235, I I 6 ) , 6 

1 540 CIRCLE(23S, 1 1 6) , 7, 1 4 

1550 CIRCLE(230,96),7,14 

1560 CI RCLE (235 ,76), 7, 14 

1 570 DRAWBM255 , 0C1 4L20D1 0NL1 0D1 N 

L10D10R20" 

I 580 DRAWBM255 , 1 72C1 4L20D1 0NL1 OD 

1NL10D10R20" 

1590 PAINT(255,50) , 14 

1600 PAINTÍ255, 5) , 14 

1610 PAINTÍ255, 177) , 14 

1 620 ' 

1630 ' *ESTRLLAS* 
1 640 ' t%&$frt&Mm 
1 650 F0RD=0T0260 



1 660 A= I NT ( RND C 1 3 #255 3 + 1 O 
1670 B= I NT C RND C 1 3 # 1 34 ) 
1680 C=INT(RNDC1 3*133 
1690 PRESET(A,B),C:BEEP 
1700 NEXT 
1710 CLOSE 

1 720 ÜPEN"QRP ! "FOROUTPUTASttl 

1 730 PRESETC 5 , 5 ) , 1 ! PR INTttl , "NAVES 

1 740 IFFA=1 0RFA=6THENRETURN 

1 750 PRESET (5,1 84 3 ! PR I NT# 1 , " FUEL ! 

1 760 DRAWBM52 , 1 86C1 3R200D8L200U8 

M 

1770 PAINTC55, 1885 j 13 

1 7S0 L I ME ( 230 , 1 86 ) •- ( 250 , 1 9 1 3 , 1 O , B 

F 

1790 X3=52¡Y3=186 

1 300 X=50 : Y=97 ¡ K=255 \ G=255 ! 1=255 ! 
F=l O : H=l 00 : jwl 90 : M-255 : N=0 ¡ C5=l 1 ! 
C6=l 1 : C7=l 1 

1310 ' *%m%%*£$*tm**m%m* 

1820 ' ^PROGRAMA PRINCIPAL* 

1 830 ' ^t^ttt^^Mtí^t^ 

1840 ' 

1850 ' -ASTRONAVES QUE QUEDAN- 

1 870 I F N A = 3 T H E N C 2 = 2 ! C3=2 ! C4-2 

1 880 I F N A = 2 T H E N C 2 ~ 6 ! C3-2 ! C4-2 

1 890 I FNA= 1 THENC2=6 ! C3»6 ! C4«2 

1 900 I FNÍi=0THENC2-6 ! C3=6 ¡ C4=6 

1910 CIRCLE(52,8),3.C2 

1920 CIRCLE(65,8),3,C3 

1 330 C I RCLE ( 78 , 8 ) , 3 , C4 

1 940 RA I NT ( 52 , 3 3 , C2 ! PA I NT ( 65 , 8 ) , C 

3:PAINT(78,8),C4 

1 950 I FFA= 1 O R F A : ~ 6 T H E N R E T U R N 

1360 I FNA=OTHENGO"!"ü 3230 

1970 IFVA=1 THEN'I 990 

1 980 IFBN=>20()00ANDBN<20225THENMA 

1 : COLOR , , 1 O : VA* 1 : GOTO í 870 
1 990 IFNA>4THENNA=4 
2000 IFBN>20225THENC0L0R , , 1 

2010 ' 

2020 ' -TIEMPO DE JUEGO- 

2030 ' 

2040 TI=TIH 

2050 I FT I >=200THENTY" 1 

2060 PUTSPRITE1 , ( X , Y 3 , 1 5 , I 

2070 PUTSPR l TES , ( M , N 3 , CS , 2 

2080 PUTSPR I TE7 , ( K , F ) , C6 , 2 

2090 PUTSPR ITE4 , ( I , ,T 3 , C7 , 2 

2100 E=STICK(Z) 

21 1 O IFE=3THENX^=X+5 i X3=X3-¡- 1 

21 20 IFE= 1 THENY==Y-5 ! X3«X3+1 

2 1 30 I FE=5THEIMY=Y+5 : X3=X3 + 1 

21 40 IFE=7TMENX=X-5 ! X3=X3+1 

21 50 IFE=2THENX-X+5 ¡ Y=Y-5 ! X3=X3-2 

2 1 60 IFE=4THENX=X+5 ! Y=Y+5 ! X3-X3 * -2 

21 70 IFE=6THENX=X-5 ! Y=Y+5 ! X3=X3+2 

21 80 IFE=8THENX=X-5 ¡ Y=Y-5 ! X3=X3+2 
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21 90 IFFA=3THENC5=0 

2200 I FFA*4THENGS=0 ! C6=0 

22 1 I F F A = 5 T H E N C 5 = ! C6=0 ! C7=0 

2230 ' -FUEL QUE QUEDA 

2240 ' 

2250 PUTSPR I TES, C X3 , 1 86 3 , 1 5 , 7 
2260 IFX3>250THENFU=0 ! X3*52 ! PLAY" 
SI Al B2C3D4E5. " ! F0RSS=0TÜ3000 ! NEXT 
; QGSUB3070 
2270 I F X < 50THENX =50 

22S0 IFX3>=225ANDX3<=229THENC0L0R 

2290 IFX3>=230THENFU=1 ! COLOR ,,1! 
GÜTO 2340 



2300 GÜTO 
2310 ' ~— 



2360 



2330 

234 
2350 
2360 
2370 
23 SO 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
i 5 : X3 
2500 
25 1 O 
2520 
2530 
2540 
2550 
2560 
2570 
X 1 , Y 3 
2580 
2590 
2600 
2610 
2620 
2630 
2540 
2650 
2660 
2670 
2680 



NAVE CON REPUESTO DE FUEL 



PUTSPRITE9 , ( X5 , 99 ) , 1 3 , 2 
X F\ ~ X 5 ™ 1 6 

IFX>240THENX=240 
IFY<10THENY=10 
IFY>1 65THENY=165 
IFM<10THENM=2S5 
I F M < 1 8 O T H E N M = M 16 
IFI«10THENK=255 
IFK1 OTHEN 1=255 

ONSPRITE G0SUB2980 

SPRITEÜN 

' *DISPARO* 
0=3TRIG(Z> 

IFOOOTHENPLAY" VI 2L I 403A" ! R= 

=X3+3:G0SUB2510 

GOTO 2590 

X1=X+1S 

C5=7 : C6=8 : C7=3 
ONSPR ITEG0SUB2680 
SPRITEON 

PUTSPRITE6 , (XI , Y) .R,3 
Xl=Xl+30 

IFX 1 >250THENR=Ü ! PUTSPRITE6 ( i 
i R , 3 : RETURN 
GOTO 2550 
K=K~10 

F=RND C 1 > : F= I NT C 40*F > +20 
Ñ=RND< 1 > : N=INT(40*N>+80 
M=M~-8 
1=1-12 

J=RND C 1 ) : J== I NT i 40* J ) + 1 20 

GOTO 1960 

GOTO 2620 

GOTO 2670 

SPRITEOFF 




2690 ' #*tmmmmtmm*$m%% 

2700 ' ^COMPROBACION IMPACTO* 
271 ' ^H^»^^*^*^»****** 
2720 I FFU= 1 THEN2740 
2730 GOTO 2750 

2740 IFY>90ANDY< 1 03 AND X 1 >X5THENG0 
SUB3400 : RETURN 

2750 IFY>N-6ANDY<N+6ANDX 1 >MTHENP1 
=5 : S=M ¡ T=N ¡ G0SUB2320 : M=2S5 : J=0 ¡ R 
ETURN 

2760 IFY>J-6ANDY<J+6ANDX1 >ITHENP1 
=4 : s= I : T»J : G0SUB2820 : I =255 : J=0 : R 
ETURN 

2770 I FY>F-6ANDY<F+6ANDX 1 >K THENP 
1 =7 : S=K : T=F : G0SUB2820 \ S=2S5 \ K=0 ! R 
ETURN 

2780 RETURN 

' :+: ^: 

' *EX PLOSION NAVE ENEMIGA* 
* * * * - .-ti * * * * * * * * * * * * * * * * * * 
PUTSPR I TE2 , ( S , T ) , O ,4 
F0RH1=1T02 
F0RG1 =0T01 5 
S0UND3,3 
S0UND10, 16 

S0UND6 , 30 : S0UND7 , 1 99 
SOUMD 1 2 , 56 : SOUMD 1 3 , O 
PUTSPR ITEP1 .. CS,T>,<31 ,4 
NEXTG1 : NEXTH1 

BN-B'N+250 

PUTSPR ITE2, (0,0) , O ,4 
BEEP : IFTY=1 TIIENTY=0 ! TI=0 ¡ GOS 
UB3460 
2940 RETURN 

' * * * * * .i-. * * * * * * * * * * * * * * * * 
' *COMPRGB ACION IMPACTO* 

SPRITEOFF 

I F X > X 5 •¥ 9 A N D X < X 5 '4. 9 A N D Y > 9 O A N D Y 



2790 
2800 
28 1 O 

2':^ 2:-'.? 

2830 
2840 
2850 
2360 
2870 
2880 
2390 
2900 
29 1 O 
2920 
2930 



2350 
2360 
2970 
2980 
2990 



O 8 T !• í & N G O S U B 3 O 7 O 



3000 
6 AND 
30 1 O 
6 AND 
3020 
6 AND 
3030 
3040 
3050 
3060 
3070 
3080 
3090 



ÍF X<M+8 AND X>M- 
Y<N i- 1 6THEN GOSUB 
AND X>K- 



•8 AND 
3070 
•8 AND 
3070 
8 AND 
3070 



Y>N™ 1 



Y>F-1 



IF X<K- 

Y<F+ 1 6THEN GOSUB 

IF X<I-«3 AND X>I 8 AND Y>J 1 

Y<J+1 6THEN GOSUB 
RETURN 

' * * * % $ * * * $ * * * * * * * * * * * * 

' ^EXPLOSION ASTRONAVE* 
í * i * * * * * * * * * * * * * * * * * * * 
F0RH1=1T010 
F0RG1 =01" 01 5 
SOUNDO , 3 
3100 .S0UND10, 16 
3 1 1 O S0UND6 , 30 ¡ S0UND7 , 1 99 
3 1 20 SÜUND 12,56: SOUND 13,0 
3 I 30 I FF A= 1 THE N PUTSPR ITE1 , ( X % , Y% > 
,G1 ,5 ¡GOTO 3150 
3 1 40 PUTSPR I TE 1 , ( X , Y > , G I , 5 



28 



31 50 NEXTG1 ! NEXTH1 

3 I 60 PUTSPR I TE 1 , C , 1 92 ) , , S ! NA=N A 

— i 

3 1 70 PUTSPR I TES , C , 50 ) ,0,2 
3 1 30 I FFA~ I THENBEEP ! RETURN 
3 1 90 BEEP : X-20 ! Y=8S ! RETURN 1 300 
3200 ' ******** 



1 



*FINAL* 



3220 ' ******* 

3230 3CREEN3 ! CÜL0R3 ,1,1: CLS 
3240 PRESETC12,12>:PRINT#1," F I 
N" 

3250 PRESET C 20 , 1 30 > ! PR I NT# 1 , " PART 
IDA" 

3260 Z*=" VI 5T1 0004DG1 BA2GABG2B05D 

E2D04B2GAGABGE2DG205ED04B2GAGA20S 

ED04B205DE2D04B2GAGABGE2DG2 . " 

3270 U*=" V 1 3T 1 00Q4DGBA2GABG2B05DE 

2D04B2GAGABGE2DG205ED04B2GAGA20SE 

DG4B2Ü5DE2D04B2GAGABGE2DG2 . " 

3280 PLAYZ*,U* 

3290 I FPLAY C 1 ) < > 0THEN3290 

3300 SCREENO ! KEYOFF ! COLORI ,15,1 5 

3310 L0CATE7,S :PRINT"TU PUNTUAC 

ION ES DE!" 

3320 LOCATE 1 O , 1 O ! PR I NTBN" P ts . " 

3330 A*="" 

3340 A$"INKEY$ 

3350 L0CATE0,12: PRINT 

OTRA PARTIDACS/N)" 
3360 IFA$="S"ORA$="s"THENRUN 
3370 IFA$="N"0RA$="n"THEN3390 
33S0 GOTO 3340 

3390 KEYGN: COLOR 1 5 ¡ 4 , 4 ¡ CLS ! END 
3400 PLA Y " SSCDGA " ! FU==0 
34 1 O X3-S2 : PUTSPR I TE9 ,(0,1 50 ) , O , 2 
3420 RETURN 

3430 ' ***Étit$$*******£$& 
3440 ' *CAMBIO DE MISION* 
3450 ' ****************** 
3460 PUTSPR I TE 1 , C X , Y ) , O , 1 
3470 PUTSPR I TES , C M , N ) , O , 2 
3480 PUTSPR I TE7 , C K , F > ,0,2 
3490 PUTSPR I TE4 , C I , J > , O , 2 
3500 PUTSPR I TES , C X3 , 1 86 ) , O , 7 
35 i O PUTSPR I TES , ( 1 25 , Y5 ) , , 1 
3520 PUTSPR I TES , í X 1 , Y ) , O , 3 
3530 CLS:FA=FA+1 

3540 IÍ$s="Tl 00 V I 5Q5CDC04A#AA#05CQ4 

GAA#AA#05C2DC04A#AA#05C04G05C04AF 
ii • 

3550 DRAW" BM30 , 20C6D50R 1 0U40F 1 SE 1 
5D40R1 0U50L1 0G1 5H1 5L 1 0BR60D50R 1 OU 
50NL 1 OBR 1 5R30D 1 0L20D 1 0R20D30L30U 1 
0R20U1 0L20U30BR40R1 0D50L1 0U50BR20 
" : GOTO 3560 

3560 DRAW" R30D50L30U50BF 1 OR 1 0D30L 
1 0U30BR30BU 1 0D50R5U30F30R5US0L5D3 
0H30L5BD70BL100" 

3570 PA I NT C 3 1 , 2 1 ) , 6 : PA I NT C 9 1 , 2 1 ) , 
6 : PAINTC 1 21 , 21 > , 6 : PAINTC 1 81 , 21 ) , 6 
¡PAINTC I 61 ,21 >, 6 ¡PAINTC 21 6, 21 ),6 



3580 IFFA=7THENFA=1 

3590 IFFA-1 THENG0SUB36S0 

3600 I FF A-2THENG0SUB3S30 

36 1 O I FFA=8THENG0SUB3740 

3620 I FFA=4THENG0SUB3770 

3630 I FFA=5THENG0SUB3800 

3640 I FFA=6THENG0SUB3830 

3650 DRAW" BD80BL80C 1 0D50L 1 0U30L \ O 

E20" 

3660 PA I NT (1 25 , 1 20 ) , 1 O 
3670 I FPLAY C 1 )<>0THEN3670 
3630 RETURN 1 190 

3690 DRAW " BD80BL 1 OOC 1 0U5E5R25F5D5 

G35R35D5L40U8E30U5L 1 5G5L5U2" 

3700 P A I NT ( 1 25 , 96 ) , 1 O 

37 1 O PRESET C 60 , 80 ) \ PR I NT# 1 , " PUNTU 

ACION : " ;bn:playm* 

3720 I FPLAY U >'<>0THEN3720 

3730 RETURN 1 190 

3740 DRAW" BD80BL 1 OOC 1 0R40D45L40U5 
R35U1 5L20U5R20U1 5L35U5" 
3750 PA I NT C 1 25 , 1 05 ) , 1 O 
3760 GOTO 3710 

3770 DRAW " BD80BL 1 OOC 1 0D25R20D20R5 
U20R1 0U5L1 0U25L5D25L1 5U20L5"' 
3780 PAINTC 118, 120), 10 
3790 GOTO 3710 

3800 DRAW" BD80BL 1 OOC 1 0R50D5L45D20 
R45D30L50U5R45U20L45U30" 
3810 PAINTC 1 25 , 105) , 10 
3820 GOTO 3710 

3830 DRAW" BD80BL 1 OOC 1 0R50D5L45D 1 5 
R45D40L50NU60BE5U30R40D30L40" 
3340 PA I NT C 1 25 , 1 05 > ,10: PRESET C 60 , 
80 ) ! PR I NT# 1 , " PUNTUAC ION: " J BN 
3850 PLAYM* 

3860 I FPLAY (1 )<>0THEN38S0 

3870 RETURN3910 

3880 ' *%************ 

3890 ' *SÉXTA MISION* 

3900 ' :*::*:****:+:******* 

39 1 O SCREEN2 , 2 ¡ COLOR 15,1,1: CLS ¡ GO 

SUBI 870 : G0SUB1 650 : G0SUB1 1 90 ! GOSUB 

1 340 

3320 ' ***^:************* 

3930 ' *SPRITES MOVILES* 

3940 ' ***************** 

3950 G 1 -*=CHR* C Üft 1 > +CHR* C &H3 ) +CHR* 

C &H7 > 4-CHm C &HF ) +CHR* C &HF ) +ChlR$ C £H 

f :í+chr$<; &hf y+mñm &hf :> 

3960 G2*=CHR* C &Fj 1 E > +CHR* C StH 1 E 3 +CH 
ñ$ t &H3E > +CHR* C &H3E ) +CHR* C &H7E ) +CH 
m C &H7E > +CHR* C &HFF ) +CHR* C &HFF ) 
3970 G3*^CHR* C &H80 ) +CHR$ C &HCO ) +CH 
R* C &H&0 ) +CHR* C &} IFO ) +CHR$ C &HFQ ) +CH 
R* C &HF.0 > +CHR$ C &HFO > +CHRf C &HFO 5 
3380 G4$=CHR* C &N78 ) +CHR* C &N78 ) +CH 
R* C &H7C ) +-CHR* C &H7C ) +QHR* C &M7E ) +CH 
R$ C &H7E ) +CHRL* C &HFF > +CHR* C &HFF :> 
3990 SPRITÉÜK1 ! ) *$ 1 *+G2*+G3*+G4$ 
4000 SPR I TE* C 1 2 ) =CHR$ C &H 1 8 ) +CHR* C 
&H3C ) +CHR* C &H7E ) +CHR$ C &HFF ) tCHR* C 



Programa 




MIO*tP«. I. 13 



ir Ctoscrn!D«( 



&HE7 
&H13 
401 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4030 
4 1 00 
4 1 1 
4120 
4130 
4140 
4150 
4 1 60 
4170 
4180 
4190 
4200 
42 1 
4220 
4230 
4240 
4260 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
10 

4390 
4400 



:> f£Hm c &H7E :> •+ chr$ c msc ) +CHR$ ( 

X=1 00 ¡ Y=l 60 : M=30 ¡ N=45 ! 0=60 
' * £ £ % £ * & & £ * * * :*: * £ £ 
' # PROGRAMA PRINCIPAL* 

PUTSPRITE1 , <X,Y> , 11 ¡ 1 
J=10 

PUTSPRITE7 ; i 1 1 O , J > , 1 5 , 1 1 
PUTSPR I TE 3 , C 1 30 , M > , 3 , 1 2 
PUTSPR I TE4 , i 80 , N ),4, 1 2 
PUTSPR I TES , C112 ) 0) ) 6J2 
PUT SPR I TES , C 98 , ü ) , 1 5 , 1 2 
Y=Y+2 : M=M~6 : N*N~ 1 O ! 0=0+3 

ifg>190thenü=40 
ifplayc 1 ) = o t h é n p l a y w 3 $ 
i f n a = o t h e n 3 2 3 o 
e=stickíz:> 
ife=1 theny=y~~3 
i fe=2theny=y~3 ! x=x+5 
ife=3thenx=x+s [di =<>• 
i fe=4theny=y+3 ! x=x+5 
ife=5theny=y+3 
ife=6theny=y+3 ! x=x-5 : di =1 
ife=7thenx = x~5:d1==1 
ife=8theny=y -3 ! x=x -5 : di =1 

IFDl=0THENX=X+2 
IFD1=1THENX=X~2 



DI «O 



D1=0 



IF 



240THENX=240 



IFX<10THENX=10 

IFY>160THENY=1S0 

IFY<10TMEMY=10 

ÜNSPR ITEG0SUB4370 

SPRITEON 

GOTO 4050 



* -EXPLOSION Y A C L O P A M I E N T O - 

* ..... _.. ... _ _ „ 

SPRITEOFF 

I FX > 1 00 AND X < 1 20ANDY<30THEN44 

G0SUB3070 
RETURM40I O 



est de Listados 



441 O 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4630 
4630 



IFX>1 10THENX=X- 1 
IFX<1 10THENX=X+1 
IFX«1 10THEN4460 
PUTSPR I TE 1 , CX, Y> , 11 , 1 
GOTO 4410 
Y=Y-1 

PUTSF'RITEl , CX, Y > .. 1 1 , 1 
IFY=1 0THENG0T04530 
GOTO 4460 

' £ X * X X X * X £ £ £ X £ * £ * X £ * X * 
' ^TRASLADO A LA TIERRA* 

F0RSS=0TD25G ! NEXT ¡ J=l 80 
PUTSPR ITEO , CX,Y>,0, 1 
PUTSPR I TES , ( 1 30 , M 3 , O , 1 2 
PUTSPR I TE4 , C 80 , N ) , O ; 1 2 
PUTSPR I TES , < 11 2 , O ) , O , 1 2 
PUTSPR ITE6, í 98, O) ,0, 12 
PUTSPR I TE 1 , ( X , Y ) , O , 1 
PUTSPR ITE7, C 1 10,,T> , 14, 11 
-J=J~ 1 
S0UND8 , 3 
S0UND1G, 16 

SOUNDS , 30 : SGUND7 , 1 99 
SÜUND12,5S:S0UND13,0 
BN=BN+30 

IFJX-20THENBEEP j GOTO 3230 

GOTO 4600 

END 
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Programa _ Por Juan C. Ruiz _ 

Esta es una simpática ver- 
sión del famoso Q-bert y en 
la que hay que pintar los cu- 
bos evitando que una pelota 
te liquide. Tras una primera 
pantalla pasas a una segunda 

a 11 i ja A | i f^f\fk Y a una tercera. Si sales de la 

b ALTA LubUb Co. ide 1 bo pierdes eI 
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1 ' SALTA-CUBOS 

20 ' ! DE ,T . C RU I Z ! 

30 ' ! MSX-CLUB ! 

40 ON STOP GOSUB 1 1 00 
50 STOP ON 

60 CLS : KEY OFF ! COLOR 10,1,1 

30 PR I NT ¡ PR I NT ! PR I NT ! PR I NT " MUEVE 

A SALTA-CUBOS POR LA PANTALLA EMP 

LE ANDO EL .JOYSTICK O EL CURSOR RA 

RA HACERLE SALTAR DE UN CUBO A OT 

RO" 

90 PRINT:PRINT''CUIDADO CON LA PEL 
OTA SALTAR I NA Y NO SALTES DE LA P 
I RAM IDE EN CUYO CASO PERDERAS TOD 
AS TUS VIDAS" 

ioo print:pr:i:nt"tienes tres vidas 

PARA EMPEZAR" 
110 PRINT"SI ESTAS ARRINCONADO IN 
TENIA SALTAR POR ENCIMA DE LA PEL 
OTA" 

120 PRINT:PRINT"/.J/ PARA JOYSTICK 

/C/ PARA EL CURSOR" 
130 AA$=INKEY& ! IF AA$=".J" OR AA$= 
" j" TI I EN M«l :GOTO 160 
140 IF AA$="C" OR AA$="c" THEM M= 
O; GOTO 160 
150 GOTO 130 

1 60 SCREEN 2,2,0: HS=0 ! OREN" GRP ! " A 
S#l 

1 70 C*« " H 1 5E 1 5F15G15D1 6H 1 SU 1 5D 1 5F 
1 SE 1 SU 15" 

180 POR X = l TO 1 : FOR N=25S TO 1 
STEP -19: SOUND 7 , 254 ! SOUND 8,15:3 
□UNO O , N : SOUND 1,1: NEXT ¡ NEXT ¡ SOUN 
D 8, O ¡SOUND 7,254 
190 LL=3 
200 S=0 

210 GOSUB 1060 

220 IF SO 100 AND SO 200 THEM CL 
S : COLOR 10 

230 IF 8=100 THEM CLS ¡COLOR , 4 , 4 : C 
LS¡ COLOR ,4 

240 IF 8=200 THEN CLS ¡ COLOR ,8,8: 
CLS ¡ COLOR 8 

250 IF 3=400 T'HEN CLS : COLOR ,3,3: 
CLS ¡ COLOR , 3 

260 IF 8=600 T'HEN C=l ¡CLS ¡COLORI . 
1 5 ,15: CLS : COLOR , 1 5 

270 IF S=500 THEN CLS ¡ COLOR , 1 4 , 1 4 
I CLS ¡ COLOR , 1 4 

280 IF 8=300 THEN CLS : COLOR ,13,13 
¡ CLS ¡ COLOR , 1 3 

290 PSET ( I 50 , 1 O ) , 1 3 ¡ PR I NT # 1 , " PUNT 
0S=" ;S 

310 C=128¡D=1 15 

320 V=5 : w=5 : x=s : Y=s : z=5 : vv=5 : ww=5 
: XX =5: YY=s:zz=6 

330 GOTO 750 



340 GOTO 5 70 

350 DRAW" BM 1 23 , 70 ; KG$ J " ! DRAW " BM 1 

13,1 oo ; xc$ ; " : draw"BM i 43 , ¡ oo ; xc$ : " 

: DRAWBM98 , 1 30 j XC* ; " : DRAWBM1 28 , 1 
30; XC$; " :DRAW"BM158, 130; XC$; " : DRA 
W'BMl 73 , 1 60 ; XC$ ; " : DRAWBM1 43 , 1 60 J 
XC*; " : DRAW'BMl 13, 160; XC*; " ¡DRAW'B 
M83, ISOíXC*}" 

360 IF SX600 THENPAINTCA-5, B+l 5) 
,10: PAINTCA+S,B+1S> , 10 ELSE PAIN 
T(A~5,B+15>, 1 :PAINTCA+5,B+15:), 1 
370 IF V=10 AND W=10 AND Y=10 AND 
Z=10 AND VV=10 AND WW«ÍÓ AND XX= 
10 AND YY=10 AND ZZ=10 THEN GOTO 
720 

380 IF A=C AND B=D THEN 790 
390 PUT SPR I TE 2 , C C~8 , D~8 ) , 1 O , 2 
400 H=RNDC2) 

410 IF H=l THEN GOTO 510 

420 CC=C:DD=D 

430 IF B > D AND A>C THEN C=C+15:D= 
D+30 

440 IF B < D AND A<C THEN C=C-15¡D= 
D-30 

450 IF B > D AND A<C THEN C=C-15:D= 
D+30 

460 IF B<D AND A>C THEN C=C+15:D= 

D-30 

470 IF CC=C AND DD=D AND A>C THEN 

D=D-30 : C=C+1 5 
480 IF CC=C AND DD=D AND A<C THEN 

D=D-30:C=C~15 
490 IF CC=C AND DD=D AND B<D THEN 

D=D-30:C=C-1S 
500 IF CC=C AND DD=D AND B>D THEN 

D=Dh-30 : 6*0*1 5 
510 PUT SPR I TE 2, (C-8,D-8>, 10,2 
520 -J=STICKCM) ; IF ,T=2 OR ,T=4 OR ,T 
=6 OR J=8 THEN 530 ELSE 350 
530 IF .1=2 THEN A=A+ I 5 : B=B-30 
540 IF ,T=4 THEN A--A-M 5 ! B=B+30 
550 IF -J=6 THEN A=A-'¡ 5 : B=B+30 
560 IF J=8 THEN A=A- 1 5 ¡ B=B-30 
570 PUT SPR I TE 1 , C A-8 , B-8 ) , 2 , 1 
580 IF A=143 AND B=25 OR A=158 AN 
D B=55 OR A=173 AND B=85 OR A=188 

AND B=115 OR A=203 AND B=145 OR 
A=218 AND B=175 OR A=183 AND B=17 
5 OR A=158 AND B=175 OR A=128 AND 

B=175 OR A=98 AND B=175 OR A=68 
AMD B=17S OR A=53 AND B=145 OR A= 
63 AND B= I 1 5 THEN 920 
590 IF A=83 AND B=85 OR A=98 AND 
B=55 OR A=113 AND B=25 THEN 920 
600 PLAY "T255V1 505G" 
610 IF A=128 AND B=55 THEN V=10 
620 'IF A=113 AND B=85 THEN W=10 
630 IF A=i43 AND B=85 THEN X=10 
640 IF A=38 AND B=115 THEN Y=10 
650 IF A=128 AND B=II5 THEN Z=10 
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Programa 



7 



660 IF A» 158 AND B=l T5 THEN W=10 
670 IF A=¿173 AND B«14S THEN WW«10 
680 IF A»143 AND B=145 THEN XX = 10 
690 IF A«1T3 AND B=145 THEN YV«Í0 
700 IF A=83 AND B=l 45 THEN ZZ=10 
710 GOTO 350 

720 SÜUMD 8/0 ! SOUND 7, 255 ¡POR N=l 
TO 255 STEP 3 : SOUND 7 ,254 ¡SOUND 
3,15: SOUND O , M ! SOUND "I , O ! MEXT ! SOUN 
D 8, O ¡SOUND 7,254 
730 S=S+100 
740 GOTO 220 

750 PUT SPR I TE 6 , ( 20 , 20 ) , 2 , 1 
760 IF LL=2 OR LL=3 THEN PUT SPRI 
TE 4, (40,20) ,2, 1 ELSE PUT SPRI TE 
4 , C 40 ,20), 1 , 1 

770 IF LL=3 THEN PUT SPRI TE 5,(60 
, 20 > , 2 , 1 ELSE PUT SPR I TE 5 , ( 60 , 20 

780 GOTO 340 

790 FOR N=255 TO 1 STEP -2 ¡ SOUN DE: 

,15¡ SOUND 7 , 254 ! SOUNDO , N ¡ SOUND 1 , 

O ! NEXT ¡ S0UND8 , O ! SOUND 7 , 254 

800 LL=LL-1 

810 IF LL=0 THEN 830 

820 GOTO 220 

330 CLSlSCREEN O ¡COLOR 10,1 

340 PR I NT ¡ PR I NT ¡ PR I NT " TE H 

AN MATADO" 

350 PRINT SPRINT" PERO HAS P 

UNTUADO" ;S 

860 IF S>HS THEN HS=S 

870 PRINT ¡ PRINT" LA MAXIMA PU 

NT U ACION ES" ; HS 

830 PRINT ¡PRINT"PRESIONA CTRL STO 



P Y DESPUES F5 PARA JUGAR" 

890 GOTO 890 

900 CLS 

910 GOTO 840 

920 REM 

930 F=6:H=6 

940 REM 

950 F-F-.2 

960 H=H~ . 2 

970 IF K128 THEN A=A~H ! B=B+4 

930 IF A>I28 THEN A^A+F ¡ B=B+4 

990 IF A~ 123 THEN B=B+2 

1000 FOR B=255 TO 1 STEP -13 ¡SOUN 

D 8 ,I5¡ SÜUMD 7 , 254 ¡ SOUND O , B ¡ NEXT 

! SOUND 8, O ¡SOUND 7,254 

1010 PUT SPR I T E 6 , ( B-~8 , A -8 > , 2 , 1 

1020 IF A<10 OR A>218 OR B>185 TH 

EN GOTO 1040 

1 030 GOTO 940 

1040 REM 

1050 SCREEN 2, 2, O ¡FOR ¡M TO 1000 
¡ NEXT ¡ GOTO 830 

1060 FOR Y=l TO 2 ¡ S%~" " ! FOR X = l T 

32 : READ D¡S*=S*+CHR*CD) ¡NEXT X¡ 
SPRITE*CY)=S*:NEXT Y 

1 070 DATA 3 ,7,15, 25 , 57 , 1 27 , 1 27 , I 1 
9,53,28, 15,7,6,6,6,14, 192,224,240 
, 1 52 , 1 56 , 254 , 254 , 238 , 220 , 28 , 240 , 2 
24 , 96 , 96 , 96 ,112 

1080 DATA 3,15,31,63,63,127,127,1 
27 , 1 27 , 63 , 63 , 3 I , 1 5 , 3 , O , O , 1 92 , 240 , 
1 34 , 1 88 , 220 , 206 , 233 , 254 , 254 , 252 , 2 
52, 248, 240, 1 92, O, O 

1 OSO RETURN 
1 1 00 CLS 



Test de Listados 



Salta cubos 
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320 
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1 30 
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- 87 


670 


-206 
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-253 
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- 58 


200 


- 83 


360 




520 
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-202 
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-145 
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210 
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330 
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540 
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700 


-122 
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p 
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~ 28 


230 
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390 


- 87 


650 


- 1 
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-246 


870 
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1 030 - 
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80 


-239 
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560 
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720 
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380 
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250 


1 22 
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64 
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270 


-249 


430 


- 1 43 


690 
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15 
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-239 
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34 
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940 
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1 '->0(T 
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Programa 



GRAFICOS 
ALEATORIOS 



Este sencillo programa te va 
a encantar, puesto que con- 
tinuamente elabora vistosos 
dibujos geométricos al azar. 



i o ' ********************* 

20 '^GRAFICOS ALEATORIOS* 

30 ' ********************* 

40 SCREEN2 

50 COLOR 11,1,1 

60 FOR A~l TO 5 

70 READ B 

SO GOSUB 130 

SO NEXT A 

t OO B~(. RND< 1 >*5>+l . 3 
1 1 O GOSUB 1 30 



120 


GOTO 100 




1 30 


CLS: 0=0:0-1 




1 40 


FOR D=0 TO 30C 


STEP B 


1 SO 


E=l 30+C0S<D>*l 


20*0 


1 60 


¡«9S+SINCD>*94 


*0 


170 


L INE-C E , U , C 




1 80 


0«Q*.997:C=1 1 : 


NEXT 


190 


FOR D=0 TO ' 299 


9 ¡NEXT 


200 


RETURN 




210 


DATA 3.1,2.11, 


1 . 53 , 1 . 24 , 1 . 832 



Test de listado 



Gráficos aleatorios 
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- F.'P. 


TOTAL : 


40 


-2 1 6 


80 


29 


120 


-251 


1 60 


- 86 


200 


- 1 42 


2455 



DATA 




EL N.'1 EN 
INFORMATICA 



MSX 





Escrito para alumnos de los últimos 
cursos de EG8 y de BUP, esle libro 
contiene muchos programas para resol- 
ver problemas y de aprendíate, descri- 
tos de una lorma muy completa y lácil 
de comprender Teorema de Pitágoras. 
progresiones geómetras, esentura ci- 
frada, crecimiento exponencial, verbos 
irregulares, igualdades cuadráticas, 
movimiento pendular, estructura de 
moléculas, cálculo de interés y muchas 
cosas más 

MSX el Manual Escolar. 3M atas. 
P.V.P. 1 800 pías 



Este libro confine una colección sin 
igual de trucos y consejos para todos 
los ordenadores con la nueva norma 
MSX. No solo contiene las recetas 
completas, sino también los conoci- 
mientos básicos necesarios 
MSX - Consejo» y I ratos. 2M píos 
P.V.P. 2.200,- Mas. 






MSX 




Lenguaje 




Máquina 









El libro contiene una amplia colección 
oe importantes programas que abar- 
can, desde un desensamblador hasta 
un programa de clasificaciones deporti- 
vas Juegos superemocionantes y apli- 
caciones completas Los programas 
muestran además importantes consejos 
V trucos para la programación Eslos 
¡"igramas luncionan en todos los or- 
denadores MSX, asi como en el SPEC- 
TROVIDEO 318 328 
MSX Programas y Utilidades. 1MS, 
194 pág P.V.P. 2.200.- ptas 



El libro del Lenguaie Máquina para el 
MSX está creado para todos aquellos a 
quienes el BASIC se les ha quedado 
pequeño en cuanto a rendimiento y 
velocidad Desde las bases para la 
programación en Lenguaie Máquina, 
pasando por el método de trabaio del 
Procesador l 80 y una exacta descrip- 
ción de sus órdenes, hasta la utilización 
de rutinas del sistema todo ello ha sido 
explicado en detalle e ilustrado con 
múltiples ejemplos en este libro 
El libro contiene, además, como pro- 
gramas de aplicación, un ensamblador, 
un desensamblador y un monitor 
MtXln|ii|iMtplei.30>M»s 
2.200.- (atas. 




Las computadoras MSX no sólo otrecen 
una relación precio rendimiento sobre- 
saliente sino que también poseen unas 
cualidades gráticas y de sonido excep- 
cionales Eslc libro expone las posibili- 
dades de los MSX de lorma completa y 
lacil El texto se completa con numere 
sos y útiles programas eiemplo 
MSX Gráficos y Sonidos. 250 págs. 
P.V.P. 2.200.- pías. 




La técnica y programación del Procesa- 
dor 780 son los temas de este libro. Es 
un libro de estudio y de consulta 
imprescindible para todos aquellos que 
poseen un Commodore 128. CPC. MSX 
u otros ordenadores que trabajan con el 
Procesador Z80 y desean programar en 
lenguaie máquina 
El P n x s m ar ZM. 560 pig P.V.P. 
3.800.- pías 



DATA BECKER 
APUESTA FUERTE 
POR MSX 



El primer lioro recomendado para es- 
cuelas de enseñanza de informática y 
para aquellas personas que quieren 
aprender la programación Cubre las 
especificaciones del Mimsteno de Edu- 
cación y Ciencia para Estudios de 
Informática Es el primer libro que 
introduce a la lógica del ordenador Es 
un elemento de base que sirve como 
introducción para la programación en 
cualquier otro lenguaje No se requieren 
conocimientos de programación ni si- 
quiera de informática Abarca desde los 
métodos de programación clásicos a 
los más modernos 

Metodología de la Programación *« 
Precio venta 2.200 atas. ^ 




